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1.0  INTRODUCTION 


The  Hydraulic  Transient  Thermal  Analysis  (HYTTHA)  computer  program  is 
intended  for  use  by  designers  with  an  interest  in  the  thermal  effects  on 
the  performance  of  an  aircraft  hydraulic  system. 

An  aircraft  hydraulic  system  is  basically  a power  source  connected  to 
several  loads.  The  main  power  source  is  the  pump,  while  the  loads  include 
components  such  as  valves  and  actuators.  The  power  is  transmitted  by  hydraulic 
fluid  in  the  lines  which  connect  the  components. 

The  system  can  also  be  considered  as  several  thermal  sources  and  sinks. 

The  main  thermal  source  is  the  pump  while  secondary  sources  include  valves  and 
restrictors.  The  sinks  include  the  atmosphere  and  structure  external  to  the 
sources.  The  HYTTHA  program  provides  a tool  for  calculating  the  transient 
thermal  response  of  the  system  when  a thermal  source,  such  as  a valve,  changes 
the  flow  demand  in  the  system,  thus  changing  system  temperatures. 

The  program  calculates  flow  rates,  pressures,  and  temperatures  throughout 
the  system.  Initially  input  data  are  used  to  calculate  steady  state  pressures 
and  flow  rates  as  input  for  an  initial  temperature  calculation  for  the  first 
time  increment.  The  steady  state  values  are  then  used  to  calculate  all  line 
temperatures  for  the  same  time  inert nent,  and  the  line  temperatures  are  used  to 
calculate  all  component  temperatures.  The  program  continues  to  calculate  steady 
state  flow  rates  and  pressures,  and  line  and  component  temperatures  for  successive 
time  increments. 

To  use  the  program,  the  designer  inputs  data  describing  lines,  components, 

t 

and  system  configurations.  Since  the  simulated  system  is  only  as  good  as  the 
data,  care  must  be  given  to  providing  the  best  data  possible. 
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In  Che  steady  state  section  of  the  program,  the  pressures  and  flow  rates 
are  balanced  throughout  the  system  (for  the  previous  time  step  temperatures)  and 
all  state  variables  are  calculated. 

In  the  line  section,  the  lines  are  divided  into  segments.  The  temperatures 
at  the  boundaries  of  each  line  are  predicted  from  stored  information  and  the 
temperatures  of  each  successive  line  segment  are  calculated. 

In  the  component  section,  the  calculated  line  cnita  is  used  to  calculate 
the  component  fluid  and  wall  temperatures. 

After  all  calculations  are  completed,  toe  output  is  printed  and  plotted. 

The  designer  selects  the  variables  that  are  required  is  output  tables  or  plots. 

The  output  is  essentially  a time  history  of  the  selected  variables. 

Since  the  program  calculations  advance  in  discrete  time  steps,  results 
can  be  integrated  into  other  simulations,  if  the  cost  o».  running  can  be  tolerated. 

This  report  is  a technical  description  or  the  HITT'IA  Program.  Included  are 
detailed  listing  of  the  main  program  and  subroutines,  and  the  theoretical  basis 
and  assumptions  made  in  the  calculations. 

Volume  VII  o.  this  report  is  a users  man  lal  which  describes  how  the  program 
can  be  used,  the  method  of  data  input,  and  :he  interpretation  of  the  output. 
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2.0  TECHNICAL  SUMMARY 


The  HYTTHA  program  uses  a building  block  approach  which  allows  a designer 
to  solve  transient  thermal  problems  by  combining  existing  hydraulic  line  and 
component  subroutines  to  thermally  Emulate  hydraulic  systems.  This  approach 
allows  the  user  to  add  special  component  subroutines  to  the  existing  component 
r ibroutine  library,  as  required. 

For  the  analysis,  the  lines  and  components  are  represented  by  both  wall 
and  fluid  nodes,  equations  are  written  for  heat  transfer  to  and  from  each  node, 
and  the  equations  are  solved  for  successive  time  increments.  The  equations  are 
defined  in  a backwards  difference  scheme  and  include  modes  of  heat  transfer  such 
as  conduction,  convection,  radiation,  heat  transfer  due  to  mass  transfer,  and 
temperature  rise  due  to  a pressure  drop.  The  line  temperatures  are  calculated 
for  one  At  and  the  results  are  used  to  calculate  the  component  temperatures  for 
the  same  At.  The  component  results  are  then  used  to  calculate  new  line  tempera- 
tures and  subsequently  new  component  temperatures. 

HYTTHA  uses  some  basic  assumptions  and  approximations  throughout  the 
program.  The  assumptions  are: 

1.  The  emissivity  of  the  materials  remain  constant,  (0.3). 

2.  The  atmosphere  and  structure  temperatures  external  to  the  lines 
and  components  are  constant. 

3.  Each  node  is  considered  as  a mass  at  one  temperature. 

A.  The  fluid  exiting  from  a component  is  equal  to  the  component  fluid 
temperature  calculated. 

5.  A pressure  drop  across  an  orifice  results  in  a fluid  temperature 
rise  (DCAPT) . A percentage  (D(PERC))  of  the  heat  goes  directly 
into  the  fluid,  and  the  remainder  into  the  wall. 

6.  The  interface  conductance,  between  the  lines  and  components,  is  infinite. 
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7.  The  pump  heat  rejection  D(HTREJ)  is  constant. 

The  approximations  are: 

1.  The  radiative  shape  factor  (SHAPF)  is  .96 

2.  A default  value  for  the  coefficient  of  heat  transfer  (UFWIL)  to  and 

from  the  external  component  wall  to  the  atmosphere  is  0.0069  WATTS/M.^-  F, 
which  is  that  of  still  air. 

The  terms  DCAPT,  PERC,  UFWIL,  (convective  heat  transfer  coefficient  between 
the  fluid  and  the  wall),  SHAPF,  and  HTREJ  are  explained  below. 

DCAPT  - The  temperature  rise  in  a fluid  due  to  a pressure  drop  across  an 
orifice  is  a function  of  the  fluid  temperature  at  the  orifice.  The  oil  is 
essentially  incompressible  and  energy  extracted  from  the  oil  is  assumed  to  be 
negligible.  Because  of  incompressibility,  the  specific  volume  may  be  considered 
independent  of  pressure.  A constant  enthalpy  process,  which  is  insensitive  to 
pressure  variations  is  simulated.  The  temperature  rise  across  an  orifice  is: 

T = (l/density)  (High  Pressure  - Low  Pressure) / (CJ*Cp) 

CJ  = mechanical  equivalent  of  heat 
Cp  = specific  heat  of  the  fluid 
(DCAPT  is  equal  to  T) 

D(PERC)-  This  uerm  denotes  how  much  of  the  heat,  generated  by  a pressure 
drop,  is  added  directly  to  the  fluid.  The  remaining  heat  is  added  to  the  wall 
in  contact  with  the  fluid.  Normally  D(PERC)  is  equal  to  1.0  which  means  that 
100%  of  the  heat  is  added  directly  to  the  fluid. 

UFWIL  - This  term  is  a coefficient  for  heat  transfer  between  a fluid  and 
a wall.  It  is  calculated'  by  a separate  subroutine,  FUNCTION  UFW. 
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SHAPF  - The  radiation  shape  factor  is  defined  as  the  "fraction  of  diffusely 
distributed  radiation  leaving  a surface  Ai  that  reaches  surface  Aj"  (Reference 
9.1).  Since  components  are  completely  enclosed  by  structure,  the  shape  factor 
should  be  equal  to  1.0,  but  this  does  not  account  for  that  part  of  the  radiation 

from  one  component  node  which  reaches  another  node  of  the  same  component.  The 

value  0.96  is  used  for  the  shape  factor  of  the  components. 

HTREJ  - This  term  is  heat  rejection  associated  with  the  pump.  This  term 
includes  the  heat  of  compressicn  of  the  fluid  and  heat  due  to  friction  in  the 
moving  parts  in  the  pump.  It  is  specified  for  many  pumps,  generally  as  a 
function  of  R.P.M.  and  volume  flew  rate.  In  the  present  pump  model  a constant 
value  is  input  by  the  user.  From  this  value,  32.3%  of  the  heat  is  added  to 
the  exiting  fluid,  25%  is  added  to  the  pump  walls,  18.7%  is  added  to  the  pistor. 

mass,  and  the  other  24%  is  added  to  the  case  fluid. 

To  use  the  program,  the  designer  inputs: 

1.  Dimensions  - such  as  lengths,  areas, and  volumes. 

2.  Material  Properties  - the  user  indicates  type  and  the  program  uses 
tabulated  values  of  Cp,  p,  and  K at  100°F.  The  materials  stored 
in  the  program  are  titanium,  aluminum,  steel,  and  teflon. 

3.  Initial  Temperature  - the  initial  temperatures  of  the  lines  and 
components  are  inputted. 

4.  Initial  Flows  - the  initial  flow  quesses  in  the  lines  and  components 
are  inputted. 

5.  Heat  Transfer  Coefficients  - Several  may  be  needed.  These  are 
special  for  each  subroutine. 
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The  output  is  either  a table  or  graph  of  the  time  history  of  a component 
or  line  wall  and  fluid  temperatures. 

It  should  be  noted  that  the  current  maximum  number  of  lines  (MNLINE) , 
components  (MNEL) , legs  (MNLEG) , nodes  (MNODE) , plots  (MNPLOT) , and  line  points 
(MNPTS)  that  can  be  input  are  limited  in  BLOCK  DATA.  Hence  BLOCK  DATA  must  be 
changed  if  any  of  these  maximum  values  are  exceeded  when  inputting  a system. 
These  are  defined  in  Section  3.2  in  the  manual. 
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3.0  MAIN  PROGRAM 


The  main  or  executive  program  section  of  HYTTHA  is  named  THYTR.  THYTR 
controls  the  flow  of  the  program,  and  keeps  track  of  the  counters  for  the 
time  variables.  The  block  data  and  fluid  suDroutines  are  also  included  in 
this  section. 

The  HYTTHA  program  is  very  similar  in  organization  to  the  HYTRAN 
(Hydraulic  Transient  Analysis)  computer  program.  Many  of  the  subroutines 
in  HYTTHA  have  HYTRAN  counterparts  and  function  in  the  same  way. 

Some  cost  savings  can  be  made  by  the  use  of  overlays  or  segments. 

The  implementation  of  these  devices  is  left  to  the  individual  user. 
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3 . 1 THYTR  PROGRAM 


THYTR  Is  the  main  or  executive  program  of  HYTTHA.  The  program  flow  is 
directed  from  THYTR.  The  main  program  card  is  set  up  to  read  from  a file 
called  DATA.  This  may  be  changed  to  suit  the  user's  own  data  inputting  scheme. 
Extensive  use  is  made  of  common  and  equivalences  in  the  program,  so  care  is 
required  in  modifying  variables  that  are  contained  therein. 

A flow  diagram  of  the  main  program  is  shown  in  Figure  3.1-1.  In  the  first 
section  of  THYTR,  the  general  system  data  is  input.  This  data  is  printed  out 
and  a call  is  made  to  the  fluid  subroutine.  In  TFLUTD  the  values  of  bulk, 
modulus,  viscosity  and  density  are  tabulated  for  the  inputted  fluid  type.  Next 
the  TLINEA  subroutine  is  called  to  read  the  line  data  cards,  and  to  initialize 
the  appropriate  variables.  Likewise  TCOMPA  reads  in  all  the  component  data 
cards  and  calls  the  component  subroutines.  The  TSSDATA  subroutine  is  then  called 
to  input  all  the  steady  state  leg  and  node  information. 

In  the  next  section  IENTR  is  set  to  zero  and  a call  is  made  to  TCALC  to 
calculate  the  steady  state  flows  and  pressures  throughout  the  system.  The 
TLINEA  subroutine  Ls  called  to  initialize  the  line  temperature  based  on  the  steady 
state  flows  and  pressures.  TSTORE  r<2ads_all  the  output  data  requirements  and 
stores  the  user  selected  output  data  just  calculated  at  time=0.0. 

The  third  section  advances  the  time  step  by  DELT.  TLINEA  and  TCOMPA  are 
called  to  do  the  thermal  transient  calculations  and  the  variables  to  be  plotted 
are  saved  by  TSTORE.  If  the  sum  of  the  time  steps  are  less  than  the  final  time 
TSCALC  is  called  to  compute  the  latest  steady  state  flows  and  pressures  and  this 
computation  section  is  repeated.  The  program  stops  when  the  time  exceeds  the 
final  time  specified  in  the  input. 


FiGURE  3.1-1 
THYTR  FLOW  DIAGRAM 


3.1.1  Mach  Model.  Noc  applicable. 

3.1.2  Assumpc Ions ■ 

The  basic  assumptions  in  THYTR  are  as  follows: 

o How  Is  one-dimensional,  chat  is,  the  fluid  properties  are  constant 
across  any  transverse  cross  section  of  the  pipe, 
o Pipes  have  circular  cross  sections, 
o Stresses  in  pipes  are  always  below  the  elastic  limit, 
o Pipe  geometry  is  such  that  the  "thin  wall"  case  is  valid, 
o Pipe  and  liquid  are  perfectly  elastic  (all  energy  dissipation  is  due 
to  shearing  stresses  at  the  walls). 

3.1. 3 Computation  Methods.  Not  applicable. 

3.1.4  Approximations. 

THYTR  approximations  are  those  inherent  in  numerical  analysis.  They  are 
kept  small  enough  by  error  control  to  be  of  no  practical  influence. 

3.1.5  Limitations. 

THYTR  currently  has  the  following  constraints: 
o Temperature  range  . . . -65°  to  300°F 
o Pressure  range  ...  0 psia  to  5000  psia 
o Maximum  number  of  components  ...  99 

o Maximum  number  of  lines  ...  150 

o Maximum  number  of  legs  ...  70 

o Maximum  number  of  nodes  ...  55 

o Maximum  number  of  plots  ...  60 
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3.1.6  Variable  Names 


Variable 

I 

IFINAL 

PRESS 

TEMP 

Y 


Description 

Counter 

Number  of  transient  iterations 
Working  Pressure 
Working  Temperature 
Dummy  Variable 


e 


Dimension 

PSI 
° F 
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3.1.7  Main  Program  Listing 


PROGRA.i  THYTR(  DATA , OUT  PUT , DATM , TA PL 5= DATA , TA PC 6=0UT PUT , 

+ TAPL7=DATA1 ) 

C ***  REVISED  AUGUST  5,  1076  *** 

COMMON  DUM  ( 3500)  , VS  TORE  ( 6 000) 

COMMON  /TRANS/P(  300)  ,Q(  300)  ,C(  300)  ,TC(  300)  ,TW(  300)  ,TF(  300)  , 

+ ACF{  300)  , ACW(  300)  ,DXF(  300)  , TIME , DELT , PI , NLINL  , NLL 
COa«;ON  /LI.!IT/;iNLI.'IU,ilNLL/.-iNLEG,  MNNODE , MN PLOT , MNLPTS , MDS 
COMMON  / COM P/ LTY PH' ( 9 0)  ,NC(  99)  , KTEHP(  99)  , IND,  IENTR,  IMLL 
COiiMON  /FLU  I D/ AT  PULS  , CF , CPFU , FTLM  P , PkOP(  13,3) 

COMMON  /PLCT/TITLL ( 20)  , PLTOtL,  NPTS,  I POINT , ISTLP, TFINAL,  NLPLT(  6 1 , 3 ) 
+ fNAi3SQ,NTOPLrNTOLPL 

C*** 

RLAD( 5 , 470) { TITLL ( I ) ,1^1,20) 

NRITL(  6/  480)  TITLL 
ISTLP=0 
PI=3. 1416 
TIME=0. 0 

C*** 

THIS  READ  STATEMENT  INPUTS  THE  FOLLOWING  DATA 
NLINE  =UU.'U3LR  OF  LINES 
NLL  =N UNDER  OF  CON POOL  NTS 

DELT  = DELTA  TI..L  3 ETWLLN  CALCULATIONS  SLC 
TFINAL=FINAL  TI.-.L  SLC 

DLTOEL=DELTA  TI.iE  *■  J?Wbr,W  PLOT  POINTS  SEC 
R L A D ( 5 , 13  3 ) ?J LI  N L , *’  L , DLL!  , TF I NA L , PLT UL  L 
133  FORaAT( 215, 3E10. 0) 

>mRITL(  6,485)  TF  I HA  L , DL  LT , PLTDLL 
IF(DELT.EO.O)  GO  7 3 251 
NPT3=1 . 01  + TFIHAL/°LTOlL 
I?OI.3T=0. 5 + PLTDLL/DELT 
IFINAL=0 , 5+TFI NAL/DLLT 
Y=TPL'JID(  TL.1P,  PRlSS  ) 

IEllTRa-1 

CALL  TLIMLA 

INhL=0 
CALL  TCOnPA 


CALL  TSSDATA 


***  THIS  SECTION  CALLS  TLINLA  AND  TCO..PA  TO  I'lITIALIZL  ALL  THE 
SYSTEM  VARIA-SLF.S  TO  THEIR  STEADY  STATE  VALUES 


C 

C 


ILN?R=0 

INEL=0 

CALL  TCALC 


3.1-5 


non  o n r>  onn 


3.1.7  (Continued) 

CALL  TLINEA 
C 

CALL  TSTORE 

TULR.-1AL  TRANSIENT  CALCULATION  SECTION 

150  I LNTR=0 

CALL  TSCALC 

T I i-l  k = ? I E + D L LT 
I STL P= I STL P+1 

ILMTR=] 

CALL  T LINE A 

00  ELP.I'.LNT  CALCULATIONS 
I ML  L=  0 

CALL  TC0.1PA 
CALL  T3T0RL 

IQ  ( ISTEP.LT. I FINAL)  GO  TO  150 
STOP 

251  CONTINUE 
STOP  3100 
4 70  FOP.  1 AT  ( 2 OA  4 ) 

430  FORiiAT(  l.il , 25X , 20A4  ,//) 

4 °5  FOR  *J  AT  ( 2 OX , 5 25!  THL  THERMAL  TRANSIENT  RLSPONSE  IS  FRO.i  T=0.0 

1 F7 . 3 , 3 5:1  SECONDS  AT  TTnE  INTERVALS  OF  DL LT=  , 

2 F7.5,//,30X,  4 OilWITH  OUTPUT  POINTS  PLOTTED  AT  INTERVALS  OF 

3 F 7 . 5/951  SECONDS  , //) 

END 


TO  T 

/ 
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3 . 2 BLOCK  DATA 


Block  data  Is  usdd  to  initialize  values  in  COMMON/LIMIT/and  COMMON/COMD/ . 

The  maximum  number  of  various  input  values  in  COMMON/LIMIT/  are  established  using 
the  following  data  initialization  statement 


DATA  .1*4  LI  Mb , .-1NLL,  rlNLEG , rlNNODb , i'iN PLOT , MMLPTS , .'IDS 
+ /150, 99, 70, 55, 60, 1500, 4500/ 


Maximum  and  minimum  values  for  each  individual  component  are  Initialized 
in  COMMON/COMPD/  as  follows: 


DATA  LT/ 100*0/ 

DATA  LI 1/11, 4,0, 4, 0,0, 4, 2, 0,0/ 

DATA  LI 220/90* 0/ 

DATA  L2 1/32, 4, 0,5, 0,3, 2, 2, 1,0/ 

DATA  L2 2/ 4 8, 20, 0,7, 0,4, 4, 2, 0,9/ 

DATA  L 2 3/ 24, 2, 0,5, 0,3, 2, 2, 1,0/ 

DATA  L243 0/9, 12, 0,12,0,0,8, 8, 0,0, 60*0/ 

DATA  L3 1/  2 4 , 1 2 , 0 , 3 , 0 , 1 , 2 , 2 , 1 , 0/ 

DATA  L32/6,5,0,3,0,0,3,3,l,0/ 

DATA  L3 3 4 0/8 0*0/ 

DATA  L4 1/20, 20, 9, 2, 0,2, 2, 2, 1,0/ 

DATA  L4 25 0/9 0*0/ 

DATA  L5 1/36, 30, 0,4, 0,5, 3, 3, 1,0/ 

DATA  L52/10*9/ 

DATA  L5360/80*0/ 

DATA  L6 1/1 0,0, 9, 12,0,1, 10, 1,0,0/ 

DATA  L6 2/ 2 4 , 1 8 , 0 , 9 , 0 , 2 , 5 , 2 , 0 , 0/ 

DATA  L6 3 6 3/ 6 0*0/ 

DATA  L60/24 , 6, 0, 4 , 0, 3, 2, 2, 1 , 0/ 

DATA  L7  0/  1 0*  0/ 

DATA  L7 1/24, 18, 0,1 0,0, 1,2, 1,0,0/ 

DATA  L7 28 0/9 0*9/ 

DATA  L81/18,4,0,2,0,l,2,2,l,0/ 

DATA  L8 2/ 24, 21, 0,8, 0,3, 6, 6, 1,0/ 

DATA  L9 3 9 0/8 0*0/ 

DATA  L9 1/0, 3 00 3, 0,3. 0,0, 1,1, 0,0/ 

DATA  L92 100/90*0/ 

DATA  LI 01/56, 27, 0,7, 0,2, 2, 2, 1,0/ 

DATA  L102/32,21,0,6,0,2,2,2,l,0/ 

DATA  LEND/ 430*0/ 

DATA  PROP/140. 4, 144. , 1 65. 6 , 230. 4 , 230. 4 , 24 2. G , 2 29 . 3 , 1 21 . 3 

1 , 118.8, 115. 2,  115. 2,  115.  2, 29  5.  34, . 1 64  , . 16, .164, . 101, . 093, . 098,  . 

2 101, .286, .286, .232 

3 , . 28, . 287, . 077  5, . 0174, . 105, .093, . 226, . 197  , . 219  , . 21, . 35, . 17,  . 

4 23, .25, .21, .00354/ 
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In  BLOCK  DATA  the  material  properties  of  thirteen  materials  are  stored 
in  the  PROP  array  in  COMMON /FLL' ID / . The  first  column  contains  the  specific 
heat  of  the  material.  Column  two  gives  the  material  density  and  the  conductivity 
is  in  column  three.  All  the  material  properties  are  Input  for  a temperature  of 
100°F.  Since  these  properties  did  not  vary  greatly  over  the  operating  temperature 
range  of  the  program  (-65°F  to  300°F) , these  values  are  not  temperature  compensated 
in  the  HYTTHA  program.  See  Table  3.2-1  for  a list  of  the  material  properties. 
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TABLE  3.2-1 


MATERIAL  PROPERTY  ARRAY 
PR0P(X,Y) 


X 

MATERIAL 

TYPE 

SPECIFIC 

HEAT 

(X,l) 

DENSITY 
(X,  2) 

CONDUCTIVITY 
(X,  3) 

1 

Titanium 

6AL-25N-4ZR-2M0 

140.4 

.164 

. 1074 

2 

Titanium 

6AL-4V 

144 

.16 

.105 

3 

Titanium 

6AL-6V-25N 

165.6 

.164 

.093 

4 

Aluminum 

2014 

230.4 

.101 

.226 

5 

Aluminum 

2024-T6 

230.4 

.098 

.197 

6 

Aluminum 

6061-T6 

242.6 

.098 

.219 

7 

Aluminum 

7075-T6 

229.3 

.101 

.21 

8 

Steel 

4130 

121.3 

.286 

.35 

9 

Steel 

301 

118.8 

.286 

.17 

10 

Steel 

304 

115.2 

.282 

.23 

11 

Steel 
17-4  PH 

115.2 

.28 

.25 

12 

Steel 

A286 

115.2 

.287 

.21 

13 

Teflon 

295.34 

.0775 

.00354 
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3.3  COMMON  USAGE 


One  blank  and  nine  labeled  common  statements  are  used  in  the  HYTTHA  program. 
Their  purpose  is  to  share  storage  and  pass  arguments  between  the  various  subroutines. 

1.  Blank  column  is  used  to  store  output  variables  and  pass  steady  state 
information. 

COMMON  DIM(  3500)  ,VSTORL(  6000) 


2.  Common  TRANS  contains  all  the  temperature,  pressure  and  flow  information 
to  be  used  by  the  lines  and  components.  Also  the  current  time,  calculation 
interval,  PI,  number  of  lines  and  number  of  elements  are  stored  in  this 
labeled  common. 

COMMON  /TRANS/ P( 300) ,Q( 300) ,C( 300) ,TC( 300) ,TW( 300) ,TF( 300) , 

+ ACF(  300)  ,ACM  300)  ,OXF(300)  , TIME  , DLL'" , PI , NLINE  , NbL 


3.  Common  LIMIT  provides  the  maximum  limits  on  the  number  of  components, 
lines,  nodes,  legs,  plots,  line  points  and  D ’’ariables. 


COMMON  /LL'iIT/iiNLI  'It,  mNLL,  MNLE.G,  nNMODL , w.NPLOT , i-iNLPTS , 
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4.  Common  LINE  is  used  pass  arguments  concerning  such  line  parameters  as 
inside  diameter  and  temperature  of  each  fluid  and  wall  segment. 

C0.-i.10M  /L I ML, /PA  RM  ( 150,  4 ) ,TLW(  2000)  ,TLF(  2000)  r LSTART(  150)  , 
+ MLSL0(  150) 

5.  Common  COMP  passes  information  on  component  types,  numbers  of  active 
connections,  current  component  numbers  and  leg  number. 

COi'l.-iOM  /COl-i P/LTYPL  ( 9 0 ) , MC{  9 9 ) , KTEi«P(  9 0 ) , IND,  I L.NTR,  IMLL 


? 


6.  Common  STEADY  contains  information  used  in  the  steady  state  portion  of 

all  the  component  and  steady  state  subroutines. 

CO.-ii i0  1 / 3 IV  ADY/PM (90)  , QN ( 9 0 ) , PLX(  90)  , PDLLG(  90)  , 0U  90)  , 

+ ?A,  0S,Oi,  pUP,  PDOt.'N  , '1,101)1.,  NLhG,  NC PN , TLF.-l , 

+ LLG‘!,ICOM,IMV,  I-lK,Il\,Z,MUP(90)  ,NDWU(90)  , CELL  1 ( 9 0 ) , 

+ ILLC»AO(  90)  , ILLG(  1000) 

7.  Common  ICC  is  used  by  the  TCALC  and  TGAUSS  subroutines  in  the 
steady  state  solution  process  to  pass  matrix  information. 


COc.iON  /ICC/ICOL(  55,  20)  , JCLN7(  55)  , JPLN?( 55) 

8.  Common  FLUID  contains  atmospheric  pressure,  conductivity  and  specific 
heat  of  the  fluid,  the  system  default  fluid  temperature  and  physical 
properties  of  various  materials. 

COM., ON  /FUJI  0/ ArPRL.j , CF , C PFN , F'frJM  P,  ?HOP(  13,3) 


9.  Common  PLOT  is  used  to  pass  variables  for  the  plotting  subroutines. 


COii.iOM  / PLOT/TIT Lh(  20)  , PLPDoL,  NPT3 , I POINT,  ISTh  P , TFINAI, , f LPLT ( 61,3; 
+ , NA3SQ, NTOPL, NTOLPL 
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LO.  Common  COMPD  is  used  to  pass  variables  used  in  component  calculations. 


CO, i. SOU  /CO.-iPO/  D(  4 500)  , LT(  100)  , Lll(  10)  , LI  220(  90)  , L21(  10)  ,L22{  10)  , 
+ L23( 19) ,L24 30(70 ) ,L31( 10) ,L32( 10) ,L3 340(80) ,L4 1(10) ,L4 250(90 ) , 

+ L 5 1 ( 10) , L52( 10) , L5360(  90) , 

+ L61( 10) , L62(10) ,L6368( 60) ,L69( 10) ,L70( 10) , L71( 10) , 

+ 1,7230(90)  ,L81(  10)  ,L82(  10)  ,L8390(  80)  ,L91(  10)  ,L92100(  90)  , 

+ LUK  10)  ,L102(  10)  ,LLNO(  4 80)  ,LE(99,4) 


The  maximum  input  limits  of  the  program  are  set  in  BLOCK  DATA.  In  order 
to  decrease  any  of  the  limits,  the  initialized  data  statement  in  LIMIT  must  be 
changed . 

Note:  The  max'1'  an  number  of  lines  that  can  be  input  is  equal  to  the  dimension  of 

the  P array  divided  by  2. 

Array  initialization  for  the  components  used  in  BLKDTA  are  as  follows: 


Array  Location 


Description 

Number  of  real  data  points,  D(  ) 

Number  of  temporary  variables,  DT(  ) 

Number  of  double  precision  variables,  DD(  ) 
Number  of  integer  variables,  L(  ) 

Not  used 

Minimum  number  of  data  cards 
Maximum  number  of  connections 
Minimum  number  of  connections 


Not  used 


Not  used 
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3.3.1  Variable  Names 


Variable 
ACF(  ) 
ACW(  ) 
ATPRES 
C ( ) 

CF 

CPFN 
D(  ) 

DELT 
DXF  ( ) 
FTEMP 
1C0L ( ) 

ICON 
IENTR 
ILEG(  ) 

ILEGAD(  ) 

IND 

INEL 

INV 

INX 

INZ 

IPOINT 

ISTEP 


Description 

Array  of  cross  sectional  areas  of  the  fluid 

Array  of  cross  sectional  tube  areas 

Atmospheric  pressure 

Array  of  wall  conductivity 

Conductivity  of  the  fluid 

Specific  heat  of  the  fluid 

Component  real  data  array 

Program  time  step 

Array  of  distances  from  fluid  node  to  interface 
Fluid  temperature 

Computational  array  indicating  rows  and 
column  locations  in  a square  matrix 

Component  connection  number 

Subroutine  entry  point  indicator 

Array  containing  component  and  line  numbers 
identifying  steady  state  legs 

Address  of  the  start  of  each  leg  in  the  ILEG(  ) 
array 

Number  assigned  to  component  by  user 
Current  leg  number  in  steady  state  computation 
Dummy  variable 

Current  element  number  in  leg 
Number  of  elements  in  a leg 
Counter  for  number  of  points  stored 
Sum  of  time  steps  up  to  current  time 


Dimension 

IN2 

IN2 

PSI 

WATTS/ IN- °F 
WATTS/IN-°F 
WATTS- SEC/ LB- °F 


SEC 


IN. 


O 


F 
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Variable 


Description 


Dimension 


JCENT ( ) 

JRENT ( ) 

KTEMP ( ) 
U ) 

LE(N) 

LEGN 

LEND(  ) 

LSTART  (N ) 

LT(  ) 

LTYPE(N) 

MDS 

MNEL 

MNLEG 

MNLINE 

MNLPTS 

MNNODE 

MNPLOT 

NAB  SO 

NC(N,I) 

NCPN 

NDWN 

NEL 


Computational  Array  indicating  number  of  filled 
columns  in  a square  matrix 

Computational  array  indicating  number  of  filled 
rows  in  a square  matrix 

Dummy  variable  array 

Component  integer  data  array 

Address  of  real  data  for  component  N 

Dummy  variable 

Dummy  array 

Address  of  first  segment  of  line  N 
Dummy  array 

Component  N type  number 
Maximum  D(  ) array  size 
Maximum  number  of  components 
Maximum  number  of  legs 
Maximum  number  of  lines 
Maximum  number  of  line  points 
Maximum  number  of  nodes 
Maximum  number  of  plots 

0 = normal  plots 

1 - plots  magnitude 

Line  number  attached  to  connection  I of 
component  N,  and  temporary  storage  area 

Number  of  constant  pressure  nodes 

Array  of  downstream  node  numbers 

Number  of  components  input 
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Variables 


Description 


Dimension 


NELEM(  ) 

Array  of  the  number  of  legs  and  components  in 
a ieg 

NLEG 

Number  of  legs 

— 

NLINE 

Number  of  lines  input 

— 

NLPLT(.l) 

Address  of  variable  in  P,Q,TC,TW  or  TF  array 

— 

NLPLT( , 2) 

Line  number 

— 

NLPLT ( , 3 ) 

Coded  input  (1=P,  2 =Q,  3=TC,  4=TW,  5=TF) 

— 

NLSEG(N) 

Number  of  segments  in  line  N 

— 

NNODE 

Number  of  steady  state  nodes 

— 

NPTS 

Number  of  plot  points 

— 

NTOLPL 

Number  of  line  plots 

— 

NTOPL 

Total  number  of  plots 

— 

NUP 

Array  of  upstream  node  numbers 

— 

P(  ) 

Array  of  line  end  pressures 

PSI 

PARM ( , 1) 

Line  length 

IN. 

PARM ( , 2 ) 

Inside  line  diameter 

IN. 

PARM ( , 3 ) 

Line  equivalent  length 

IN. 

PARM ( , 4 ) 

Transition  flow  when  multiplied  by  viscosity 

CIS 

PDLEG(  ) 

Array  of  external  pressure  drops 

PSI 

PDOWN 

Downstream  leg  pressure 

PSI 

PEX  ( ) 

Dummy  array  used  in  steady  state  section  for 
external  pressure  calculations 

— 

PI 

Constant  3.1416 

— 

PLTDEL 

Plot  time  interval 

SEC 

PN  ( ) 

Array  of  node  pressures 

PSI 

PROP ( , 1) 

Material  specific  heat 

WATTS- 
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WATTS-SEC/LB- °F 


Variable 

Description 

Dimension 

PROP( ,2) 

Material  density 

LB/ IN3 

PROP ( , 3) 

Material  conductivity 

WATTS/ IN- °F 

PUP 

Upstream  pressure 

PSI 

Q<  ) 

Array  of  line  end  flows 

CIS 

n a 

V* 

Magnitude  of  flow 

CIS 

QL(  ) 

Array  of  leg  flows 

CIS 

QN(  ) 

External  flow  at  a node 

CIS 

QS 

Sign  of  the  flow 

— 

Q1 

Flow  rate 

— 

TC(  ) 

Array  of  component  temperatures  at  line 

ends 

°F 

TERM 

Dummy  Variable 

— 

TF(  ) 

Array  of  fluid  temperatures  at  the  line 

ends 

°F 

TF1NAL 

Final  calculation  time 

SEC 

TIME 

Current  main  program  calculation  time 

SEC 

TITLE ( ) 

Program  run  title  array 

— 

TLF  ( ) 

Array  of  line  segment  fluid  temperatures 

°F 

TLW  ( ) 

Array  of  line  segment  wall  temperatures 

°F 

TW(  ) 

Array  of  wall  temperatures  at  the  line  ends 

°F 

VSTORE(  ) 

Array  for  storage  of  line  and  component 
data  required  for  plotting 

variable 

— 

3 . A TFLUID  FUNCTION 


Function  TFLUID  reads  in  the  fluid  parameters  and  computes  tables  of 
fluid  density,  adiabatic  bulk  modulus,  and  kinematic  viscosity  for  the  temperature 
range  of  -b5°F  to  300°F.  Data  for  three  types  of  fluid  are  currently  included 
in  TFLUID.  They  are  MIL-H-5606B,  MIL-H-83282  and  SKYDROL  500B.  TFLUID  is  dimensioned 
to  accept  data  on  three  additional  fluids.  The  daca  sources  are  contained  in  the 
TFLUID  function  subprogram. 

3.A.1  MATH  MODEL  - Not  applicable. 

3. A. 2 ASSUMPTIONS  - Not  applicable. 

3. A. 3 COMPUTATION  METHOD  - The  arguments  of  TFLUID  require  that  the  temperature 
and  pressure  be  input  for  any  computation  of  density,  viscosity  or  bulk  modulus. 

All  the  fluid  parameters  are  dimensioned  for  nine  input  data  points 
and  six  fluids.  Data  statements  are  used  to  input  the  name  of  each  fluid,  the 
nine  temperature  data  points  for  each  fluid,  and  the  bulk  modulus  and  viscosity 
data  corresponding  to  the  nine  temperature  points  for  each  fluid.  Only  two 
points  are  used  for  density  input  data,  since  a straight  line  interpolation  is  used 
over  the  entire  temperature  range  for  density  calc  ilations . The  values  of  specific 
heat  and  conductivity  are  stored  for  each  fluid  type  in  the  DCF  and  DCPFN  arrays. 

Next  the  system  fluid  type,  initial  temperature  vapor  pressure  and  atmospheric 
pressure  are  read  in.  Default  values  are  assigned  when  a initial  temperature, 
vapor  or  atmospheric  pressures  are  not  assigned  by  the  user. 

Subroutine  INTEPP  is  then  called  to  estimate  the  fluid's  viscosity  and  bulk 
modulus  values  from  -65°F  to  300°F  in  2.5  degree  increments.  The  values  of  the 
fluid  properties  are  stored  in  DVISC(  ) and  DBULK(  ).  Viscosity  is  converted  from 
centistokes  to  NEWTS  in  the  process.  A pressure  coefficient  of  viscosity  is  also 
computed  and  stored  in  DCOEFF(  ) for  every  2.5  degree  increment  of  temperature. 
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Finally  TFLUTD  writes  out  the  fluid  type  and  vapor  pressure  before  returning 
control  to  the  main  program. 

ENTRY  TFLUII) 

Whenever  a value  of  bulk  modulus  viscosity  or  density  is  required  by  the 
component  or  line  subroutines  a call  is  made  to  the  TFLUII)  function  through  the 
appropriate  entry  statement,  with  the  current  values  of  temperature  and  pressure. 

For  the  bulk  modulus  computation  the  temperature  is  converted  to  an  array 
location  in  DKULK(  ). 

IV  = (TEMP+65 . ) / 2 . 5 

DBULK(IV)  gives  the  value  of  bulk  modulus  at  the  inputted  temperature. 

The  value  is  then  pressure  corrected  and  returned  to  the  calling  program. 

The  process  is  similar  for  the  viscosity  calculation.  Should  the  temperature 
exceed  300°F  the  fluid  properties  are  given  at  300°F. 

In  entry  RHO  the  equation  of  a straight  line  drawn  between  the  inputted 
density  data  points  is  solved  to  obtain  the  density  value. 

3 . 4 . 4 APPROXIMATIONS 

1.  The  values  of  specific  heat  and  conductivity  are  input  at  100°F  for  the 
different  fluid  types  and  are  not  corrected  for  any  fluid  temperature  rise  during 
program  execution. 

2.  The  fluid  property  values  of  bulk  modulus  and  viscosity  are  only  accurate 
to  2.5  degrees  because  of  Che  table  look-up  feature. 

3.  For  any  fluid  temperatures  greater  than  300°F  the  bulk  modulus  and  viscosity  value 
will  be  given  at  300°F. 
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3 4.5  VARIABLE  NAMES 


VARIABLE 

A 

ABULK(  ) 
ARHO ( ) 
ATEMP ( ) 
AVISC(  ) 

B 

COEFF ( ) 
DBULK(  ) 

DCF  ( ) 
DCOEFF ( ) 

DCPFN ( ) 
DVISC(  ) 

I , IER 
IF 

IFLUMN(  ) 
IK(  ) 

IV 

PRESS 

PVAP 


DESCRIPTION 


Temperature  Ratio 

Array  for  Ten  Adiabatic  Bulk  Modulus 
Input  Data  Points  for  Six  Fluids 

Array  for  Two  Density  Input  Data  Points 
for  Six  Fluids 

Array  for  Ten  Temperature  Data  Points 
for  Six  Fluids 

Array  for  Ten  Viscosity  Input  Data  Points 
for  Six  Fluids 

Viscosity  Correction  Exponent 

Array  of  Viscosity  Correction  Factors 

Tabulated  Array  of  Bulk  Modulus  Values 
for  User  Selected  Fluid 

Array  of  Fluid  Conductivities 

Array  of  Viscosity  Pressure  Correction 
Factors  for  User  Select  Fluid 

Array  of  Fluid  Specific  Heats 

Tabulated  Array  of  Viscosity  Values  of  User 
Selected  Fluid 

Dummy  Variables 

Fluid  Type  Identification  Number 

Array  for  Fluid  Names 

Number  of  Input  Temperature  Points 

Address  of  Tabulated  Viscosity  or  Bulk 
Modulus  Values 

Input  Fluid  Operating  Pressure 
Fluid  Vapor  Pressure 


DIMENSION 

PSI 

lb*sec2/in4 

TEMP 

CENTISTOKES 

WATTS/ IN- °F 

WATTS-SEC/LB-°F 

IN2/SEC 


PSI 

PSI 
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VARIABLE 

SLOPE 

TBULK 

TEMP 

TELUID  ,TJ  ,1'VISC 
Y1.Y2 


DESCRIPTION 

Slope  of  Density-Temperature  Line 
Dummy  Variable 

Input  Fluid  Operating  Temperature 
Dummy  Variables 

Input  Density  Data  Corrected  for 
Operating  Pressure 


DIMENSION 

lb-sec2/inV°f 

°F 

lb-sec2/in.4 
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3. A. 6 Subroutine  Listing 


FUNCTION  T?LUID(Tb.-iP,  PRESS) 

C****  RLVTSLD  i'IARCH  3,  1075  **** 

COi-MON  /FLUTD/ATPRL3,CP,CPFN,FTbr;P,PU0P(  13,  3) 

DIMENSION  ATLii P(  10,6)  ,AVISC(  10,5)  , ABULK ( 10,6)  ,ARHO(  2,6)  , 
1C0LFF(  6)  ,IK(  6)  , IFLUUil(  3 , 6 ) ,DCF(  6)  ,DCPFH(6) 

DlrlbNSION  DVISC(  148)  ,DCOLFF(  143)  , DDULK(  148) 


SbCOUD  SUBSCRIPT  RbFLRS  TO  FLUID  TY PL  (IF  PARAnETbR) 


DATA  IF  LUNA 


1/8H  FOR  OIL,  °1I — tl 

-56063, 8H 

t 

231!  FOR 

.tl  L 

, 8H 

-H- 

33232, 

, 9ii 

/ 

33H  FOR 

S”Y 

, 8HDR0L  500, 

, 8H3 

t 

4 6*  8 H 

/ 

53H 

, 8H 

( 

,8H 

/ 

DATA  ATL.iP 

/ 

1-65. , - 

40.  , 

0.  , 

50. 

,100.  , 

,150. 

, 200. 

, 250. 

.300. 

,300 

2-65. f - 

40.  , 

0.  , 

80. 

,100.  , 

, 150. 

, 200. 

, 250. 

, 300. 

, 300 

3-35.  , - 

40.  , 

0.  , 

50. 

,100.  , 

, 150. 

, 200. 

,250. 

, 300. 

,300 

430*10. 

/ 

RHO,  BULK  VJO  VISC  DATA  ARL  FOk  0.0  PSIG  , 

RHO  DATA  SOURCE: 

J-uDC  RbPORT  A 2.686  DATLD  4/7  4 

2- .IDC  RbPORT  A 2 6 3 6 DATLD  4/74 

3- .lOi'13V.!TO  DATA  S’lLLT  DATLD  6/67  ( DOUGLAS  hY  ) w AN  UAL) 

DATA  A RHO  / 

13 . 57L-5 , 7 . 63L-5 , 

28. 49L-5, 7. 3b-5, 

310 . 3L-5 , 8 . 9L-5 , 6* 1 0./ 

'•BULK  DATA  SOURCE: 

1- LLTTLF  TO  G . A..  I FRO/.  J . » . UOOUAN  DATLD  11/70 

2- LfcTTi.R  TO  G.  A.iI-.G  FRO.)  J . w.NQOUA.n  DATLD  11/70 

3- LLTTlR  TO  G.  A.iI’.S  FRO.)  J . w . 400NAR  DATLD  11/70 

DATA  A "BULK  / 

113.47L5, 3.25L5, 2.9L5, 2.43L5, 2.03L5, 1.73L5, 1.42L5, 1. 19L5, .93L5, 

A.93E5, 

213. 4 7L5,  3. 25L5,  2.0L5, 2. 4 3L5, 2.03L5,  1 .73L5,  1. 4 21.5, 1. 19E5,  .9SL5, 

A . ^ 3 L 5 

334.26L5, 4.05l,5, 3.64L5, 3.  13L5,  2.7L5, 2. 29L5,  1.9  4L5,  1.6  2L5, 1. 38L5, 

A1.38L5, 30*19.  / 

Vise  DATA  SO'JRCL: 

1- .iDC  RLPOR T A 2 6 3 6 DATLD  4/7  4 

2- .IDC  RbPORT  A 2 6 3 6 DATlD  4/7  4 

i-.-lONGANTO  DATA  SHL-.LT  DATLD  6/67  (DOUGLAS  HYD  n AN  UAL) 

DATA  AVI SC  / 
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(Continued) 


119') 3. 5, 4 82.  3,  1 34  . 4,  3 4.85,  14.  4 7,7. 46,  4.58, 3. 10, 2.  39, 2.  30, 
2114  46. 9,  2 019.  3, 2 69. 45, 87,  15.  9 5, ,1 . 4 6 ,4. 24,  2. 83,  2. 04, 2. 04, 
33  4 95.5,59°,  .07,104. 19,27. 9, 11. 7, 6. 5, 4. IB, 2. 89, 2. 15, 2. 16, 

A30* 1 0./ 

DATA  IK/ 3*9, 3*10/ 

.'AT A C0LF,?/ . 335,  . 33  , . 42,3*  10./ 

DATA  DCF/ .0017, .0023, .0022,3*0.0/, 

+ DC PFN/5 5 2. 7, 461.48, 403.99, 3*0.0/ 

TNP'JT  FLUID  TYPL  VI D INITIAL  FLUID  TL.4P 
9LAD(  5 , 333)  IF,  FTi..-iP,  PVAP, ATPRCS 
3 33  FOR. t AT ( 15, 3 b 1 0 . 0 ) 

I ' INDICATES  T il  FLUID  TYPL 

ofcT  SYSTL.i  FLUID  Tb.-iP  fU  OLFAULT  VALUL 

I F ( FTb. . P . L D . 0 . 0 ) FVb:i  P=  1 0 0 . 

SLT  Till.  VAPOR  PRESSURE  TO  ITS  Oh  FAULT  7ALIJL 
IF ( PVAP.bO.0. ) PVAP=2. 

btT  TUI.  A tViQOPHLhlC  PRLSSURb  TO  ITS  Db  FAULT  VALUL 
IF(  ATPRLS . LO.  0 . ) AT  PR  1.3=1  4,5 

C F = DC  F ( IF) 

CPF.!=DCPFM(  IF) 

T.7  = -65. 

DO  10  1=1,143 

CALL  INT’tR P(  I\J,ATt.-iP(  1,1F)  ,AVI3C(  1,IF)  ,11 
+, IK( IF)  , TVIoC,  It-. R) 

Vise  IS  C09VLFTLD  >•  .<0.4  CENT IoTOKCS  TO  NL.vTS 
DVI SC ( I ) =TVISC* 1.555L-3 

CALL  IwT.‘.RP(  T7  , ATL.iP(  1,IF)  , AVI3C(  1 , IF)  ,12 
+ , IK(  IP)  ,COc.FF(  IF)  , Ir-.R) 

DCOLP ••’(  I)=CObFF(  IF) 

CALL  IRTi. RP(  ]\]  , ATLi i P(  1,IF)  ,APULK(  1,1?)  ,20 
+ , I!<(  IF)  , T3ULK  , ILR) 

DOULK ( I ) = T 3ULK 
T J=T  7 + 2 . 5 
10  COUTLs’UL 
TFLUI  D=T.J 

aRITl(  6,  12)  ( DVI  SC  ( I)  ,1  = 1,11.3)  ,(  DCO..FF(  I), 1 = 1, 143), 

+ ( d:)UL,’<(  i ) , i = i , 140) 

12  POk..AT(  3X,  19L12.  5) 

GO  PO  20 

LNTkv  JULK 

IV=(  TL.iP+65.  ) /2.  5 

IF ( IV. OT. 1 1 6 ) I V= 1 4 6 

TFLUI D=D’3ULK(  I V) +1 2 . * PRLSS 

RETURN 

ENTRY  RrlO 

WHITE ( 6, 13)  TLNP,  PRESS 

13  FOR;  1 AT  ( 3 X , 5 H * R 1 iO*  , 3 X , 2L 1 2 . 5 ) 

Yl=ARMO( 1, IF) 
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Y2=ARHO( 2, IF) 

Y1=Y1* ( 1.+PRESS/2. 5L5) 

Y2=Y2* ( 1 . +PRESS/2 . 5b5 ) 

SLOPE= ( Y 2-Y 1 )/3  4 0. 

TFLUIO=3LOPb*(TErlP+65.  ) +Y1 

RETURN 

LNTRY  VISC 

IF ( A3S( PRESS) .GT. 90000) PRESS=90 000. 

WRITL( 6, 10)  TEMP, PRESS, TV 

19  FOR.1AT(3X,6H*VISC*,3X,  2E12.  5,110) 

IV=(TE.tP+S5.  )/2. 5 
IF(IV.GT.146)IV=146 

A=560./(  TL»i P+460.  ) 

B=( ( DCOEFF( IV) )*>A)*PRbSS*2. 3E-4 
TFLUIO=DVISC( IV) * L X P ( 3 ) 

RETURN 

20  WRITE ( 6, 600)  ( IFLUN.i(  I,  IF)  ,1  = 1, 3)  , PVAP 

600  FORMAT ( 2 2X,  15UFLUID  OATA  FOR  , 3A8,25r)WITH  A VAPOR  PRESSURE  OF  , 
+F7 . 1 , 4H  PGI,//) 

RETURN 

END 
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4.0  STEADY  STATE  SUBROUTINES 


The  steady  state  subroutines  comprising  TSSDATA,  TCALC  and  LEGGAL  pro- 
vide the  thermal  transient  section  with  the  distribution  of  pressures  and 
flows  in  the  system. 

The  steady  state  programs  need  to  know  how  each  constant  flow  path  is 
connected,  where  the  flow  splits  and  adds,  and  where  there  is  a net  dis- 
placement or  overboard  flow. 

This  data  is  input  after  the  component  information.  The  input  data 
used  gives  great  flexibility  and  is  very  easy  to  modi'.y. 

The  steady  state  program  can  cope  with  system  configurations  that  are 
very  complex  and  it  is  particularly  valuable  with  closed  loop  systems  and 
intertwined  flow  paths. 
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4.1  SUBROUTINE  TSSDATA 


The  TSSDATA  subroutine  reads  the  input  data  which  specifies  one  system 
configuration. 

TSSDATA  is  a simple  input  routine,  with  very  little  calculation.  The 
data  storage  is  divided  into  two  sections;  the  basic  leg  data  is  contained 
in  the  NUP,  NDWN  and  NELEM  arrays,  and  the  elements  in  a leg  are  stored  in 
the  ILEG  array. 

When  all  the  data  has  been  read  in,  it  is  written  to  the  output  so 
that  a check  can  be  made  for  errors  in  each  data  field. 

4.1.1  Math  Model  - Not  applicable. 

4.1.2  Assumptions  - Not  applicable. 

4.1.3  Computation  Method  - 

The  first  set  of  input  data  to  be  read  is  the  number  of  nodes,  NNODE, 
and  the  number  of  legs,  NLFG.  The  data  storage  arrays  are  then  filled 
with  the  steady  state  leg  and  element  information.  The  NUP  and  NDWN  arrays 
contain  the  upstream  and  downstream  node  numbers.  The  number  of  elements 
in  the  leg  is  stored  in  the  NELEM  array. 

The  LEG  element  data  is  stored  in  ILEG ( ) in  data  pairs.  If  the  first 
vaj-u1'  is  equal  to  zero,  the  second  is  the  line  number.  If  the  first  value 
is  nonzero,  it  is  the  component  number  and  the  second  is  the  connection 
number.  There  are  ILEGAD(I)  pairs  of  data  for  each  LEG  <ll  with  the  first 
value  stored  at  ILEG  (ILEGAD(I)) . 

4.1.4  Approximations  - Not  applicable. 
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4 ‘I*5  Locations  ~ The  steady  state  data  Is  essentially  a restatement  of 
previously  inputed  thermal  transient  data,  in  a form  that  can  be  followed 
during  the  steady  state  calculations.  A sorting  routine  would  eliminate 
the  need  for  inputing  steady  state  data,  by  generating  it  from  the  data 
inputed  for  the  system  components. 

^ * 1 • 6 Variable  Names 


Name 

I 

J 


Description 
Do  Loop  Counter 
Number  of  Elements  in  a LEG 


JJ 

K 


NCPN 


NLEG 


NNODE 


Do  Loop  Counter 
Address  Counter 
Dummy  Variable 
Number  of  LEGS 
Number  of  Nodes 
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Subroutine  Listing 


SUB  ROUT  1 4E  TSSDATA 
C****  REVISED  AUGUST  5,  1975  **** 

COM. ION  / COM P/ LTY PE (99) fNC(99) ,KTEMP(99) , IND, IENTR, INEL 
COrirlON  / STEADY/  PN  ( 9 0 ) fQN(90)  ,PLX(90)  ,PDLEG(90)  ,QL(90)  , 

+ QA,QS,Q1,PUP, PDOWN , NNODE , NLEG, NCPN , TERM , 

+ LEGN , ICON, INV, INX, INZ , NUP( 90) ,NDWN(90) , NELEM (90) , 

+ ILEGAD( 90) , I LEG ( 1000) 

****  READ  THE  NUMBER  OF  NODES , LEGS , AND  CONSTANT  PRESSURE 
MODES. 

RLAD( 5,69) NNODE , NLEG , NC  PN 

69  FORiiAT(  315) 

****  WRITE  OUT  T.iL  IMPUTED  DATA 

WRITE ( 6,70)  NNODE, NLEG, NCPN 
WRITE ( 6,71) 

70  FORMAT  ( l.i  1 , 5 5X  , 23H3TEADY  STATE  INPUT  DATA,//, 

1 30X, 17HNUM3ER  OF  NODES  = , I 3 , 5X , 1 6HNUMBER  OF  LEGS  =,I3, 

2 5X , 3 5HNUM3ER  OF  CONSTANT  PRESSURE  NODES  =,I3,//) 

71  FORMAT ( 52X, 25ULEG  CONNECTION  INPUT  DATA, 

4 // , 10X,  6ULEG  NO,  9X , 1 2IIUPST  NODE  NO,  4X,  12HDWST  NODE  NO,4X, 

5 14HNO  OF  LLEMENTS, 5X, 10HFLOW  GUESS , 5X , 1 0HUPST  PRESS, 5X, 

6 10HDWST  PRESS) 

K = 0 

***  READ  IN  DATA  FOR  EACH  LEG 
DO  200  11=1, NLEG 

READ( 5, 76) I ,NUP( I ) ,NDWN(I) ,JJ,QL(I) , PUP, PDOWN 
7 6 FORMAT ( 4 1 5 , 3E 1 0 . 0 ) 

WRITE( 6,80)1, NUP( I ) ,NDWN(I) ,JJ,QL(I) , PUP, PDOWN 
80  FORMAT ( 10X, 15, 10X, 15, 10X, 15, 10X,I5,9X, 5X, F10. 5, 

1 5X,F10. 5, 5X , F 1 0 . 5) 

NELLi'i ( 1 1 ) = J J 
J.J= J J*  2 


READ  LF.G  ELEMENT  DATA 

READ( 5, 199)  ( I LEG( K+J ) , J=1 , JJ) 

199  FORMAT ( 1615) 

ILEGAD( 1 1 ) = K + 1 

200  K=K+J J 
,<RITE(  6,90) 

9 0 FORMAT  ( 1H0, 9X,  3 Oil  LEG  MO  ELEMENTS  IN  LEG ) 

DO  300  11=1, NLEG 
K=I LCGAD( 1 1 ) 

JJ=NEL£M ( 1 1 ) * 2-1+K 

WRITE (6,152)11,(1 LEG( J ) ,J=K,JJ) 

300  CONTINUE 

152  FORMAT ( 1 OX , 1 3 , 7X , 1 0 { I 3 , 3H  — , 13, 1H, ) ,//,  20X,  10(  10(  13, 311  — ,13,1 
+,//,20X) ) 

RETURN 

END 
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4.2  SUBROUTINE  TCALC 


Tne  TCALC  subroutine  is  responsible  for  the  steady  state  calculations  in 
the  system.  TCALC  is  cal  Led  from  the  THYTR  main  program.  Thu  subroutine  will 
compute  the  pressures  at  all  the  system  nodes  and  flows  ir.  all  the  legs,  using 
pressure  drop  data  obtained  from  TLEGCAL.  Figure  4.2-1  is  a generalized  flow 
diagram  of  TCALC. 

On  entry  into  1’CALC  the  first  phase  performed  by  the  subroutine  will  be 
to  initialize  the  appropriate  calculation  arrays.  After  the  initialization, 
the  computation  phase  begins.  All  the  legs  will  be  assigned  conductance  values 
from  the  TLEGCAL  subroutine.  These  conductance  values,  along  with  constant 
factors,  will  then  be  inserted  into  two  matrices.  The  TGAUSS  subroutine  will 
be  called  to  compute  the  new  pressure  values.  These  pressure  values  at  the 
nodes  are  then  used  to  calculate  the  new  flow  rates  for  the  legs  in  the  system. 
When  all  the  flows  pass  the  convergence  test,  the  flows  and  pressures  are 
written  to  labeled  common  arrays  and  program  control  is  passed  back  to  THYTR. 

If  the  number  of  iterations  exceeds  50,  the  most  recent  calculated  values  of 
flow  and  pressure  are  returned  to  the  labeled  common  arrays  and  an  error 
message  is  printed. 

4.2.1  Math  Model  - The  development  of  the  TCALC  subroutine  to  analyze  com- 
plex flow  systems  results  from  the  assumption  that  all  resistance  factors  in 
a line  can  temporarily  be  assumed  linear.  The  net  flow  around  any  node  can 
then  be  written  as  the  sum  of  all  the  flows  entering  and  leaving  that  node 

0r  QHET  " °' 

If  R12  is  a resistance  factor  used  to  describe  a resistance  in  a leg, 
then  R 2 = ap12^12' 
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FIGURE  4.2-1 

TCALC  GENERALIZED  FLOW  DIAGRAM 
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where : 


R^2  = Resistance  from  node  1 to  node  2 of  the  leg 

AP^2  = Pressure  drop  from  node  1 to  node  2 of  the  leg 
Q^2  = Flow  in  the  leg 

Conductance  is  then  defined  as: 


where : 

G12  = Conductance  from  node  1 to  node  2 of  the  leg 

Then : 


The  net  flow  at  any  node  (where  three  or  more  legs  come  together)  must  be 
zero. 

Therefore,  the  flow  requirement  is  satisfied  if: 

EJ  CXJ  [PI  - PJ  ± 4Pij)  - ek  ± V * 0 
Where: 


Pn  = pressure  at  node  I 

Pj  = pressure  at  node  J 

AP^.j  = a pressure  rise  or  loss  (from  a pump  or  actuator)  in  leg  IJ 

Q = fixed  flow  in  leg  IK  connected  to  node  I 
IK 

Equations  of  the  above  form  are  input  to  a matrix  for  solution  of  pressures 
at  nodes.  These  matrix  solution  pressures  are  used  in  conjunction  with  the 
calculated  conductance  (G)  to  calculate  a new  flow  guess  in  each  leg.  When 
two  successive  flow  guesses  for  all  legs  in  the  system  are  within  a specific 
tolerance  such  as  .001  CIS,  the  solution  has  converged.  Refer  to  Appendix  A 
SSFAN  Technical  Manual,  AFAPL-TR-76-43,  Vol.  VI,  for  a more  detailed  mathe- 
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matical  development. 


4.2.2  TCALC  Subroutine  Description  - The  TCALC  subroutine  is  divided  into 


two  phases.  The  first  phase  deals  directly  with  the  input  data  for  establish- 
ing the  system  pressure  node  identification  arrays.  Six  arrays  are  generated 
which  are  used  >n  the  calculation  of  node  pressures  and  leg  flows  in  phase  two. 
Specifically,  these  arrays  are: 

JCOL: 

1)  Dimension (M,M) 

2)  The  final  JCOL  array  (in  compressed  form)  identifies  the  columns 
in  a square  CALC1  array  which  are  filled  with  non-zero  terms. 

The  rows  of  JCOL  correspond  to  the  rows  of  CALC1,  and  the  ele- 
ments in  each  row  of  JCOL  correspond  to  the  column  number  in 
each  row  of  CALC1. 

3)  Mote:  JCOL  describes  a square  CALC1  array  in  order  to  be  com- 

patible with  the  solution  technique  in  TGAUSS. 

IDIAG: 

1)  Dimens  ion (M) 

2)  The  IDIAG  array  identifies  which  columns  of  CALCl  contain  the 
positive  flow  values.  IDIAG(l)  corresponds  to  the  column  in 
which  the  positive  element  is  located  in  the  first  row  of  the 
CALCl  array.  IDIAG(2)  corresponds  to  the  column  in  whi<-h  the 
positive  element  is  located  in  the  second  row  of  the  CALCl 

array. 

3)  Note:  IDIAG  describes  a compressed  CALC  array. 
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Dimension (ML) 

The  JNEG  array  identifies  which  column  in  CALC1  contains  the 
first  appearance  (in  a row-by-row  search)  of  the  leg  numbers 
used  as  G-subscripts  for  negative  elements  in  the  CALC1  array. 
For  example,  JNEG(4)  represents  the  leg  to  be  used  as  a G- 
subscript.  If  JNEG(4)=3,  then  the  first  time  a -G/(  appears  is 
in  column  3 of  the  CALC1  array  (the  row  number  is  already  known) 
Note:  JNEG  describes  a compressed  CALC1  array. 


Dimens ion (ML) 

The  INEG  array  differs  from  the  JNEG  array  in  only  one  respect, 
that  being  the  INEG  array  stores  the  second  appearance  of  the  leg 
numbers  used  as  G-subscripts  for  negative  elements  in  the 
CALC1  array. 

Note:  The  INEG  array  describes  a compressed  CALC1  array. 


Dimension (M) 

The  JRENT  array  identifies  the  number  of  non-zero  entries  in 
each  row  of  CALC1.  IRENT  is  a duplicate  of  JRENT,  however, 

TRENT  is  passed  lu  TGAUSS  to  be  used  in  the  solution  process 
while  JRENT  remains  permanent.  For  this  reason,  IRENT  is  easily 
built  from  JRENT  for  each  iteration. 

Note:  JRENT  describes  either  a square  or  compressed  CALC1 


array. 
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JCENT: 

1)  Dimens ion (M) 

2)  The  JCENT  array  identifies  the  number  of  non-zero  entries  in 
each  column  of  CALCi . ICENT  is  built  from  JCENT  for  every 
iteration. 

2)  Note:  JCENT  describes  a square  CALC1. 

To  understand  how  Phase  I works,  the  example  system  in  Figure  4.2-2  is 
developed  below.  A simplified  flow  diagram  of  Phase  I is  shown  in  Figure 
4.2-3. 
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ILEP  ARRAY 


NUMBER  OF  PRESSURE  NODES  M = 10 
NUMBER  OF  LEGS  ML  = 14 


Figure  4.2-2 
TCALC  EXAMPLE  SYSTEM 
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FIGURE  4.2-3 

TCALC  SUBROUTINE  PHASE  ONE  OPERATION 


I.  JCOL  is  initially  filled  with  non-zero  terms  to  indicate  the 


positions  of  non-zero  terms  in  a square  CALC1. 


123456789  10 


1 

2 

DO  10  K=1 , ML  „ 

I = ILEP (K, 2)  J 

J = ILEP(K, 3)  4 

JCOI (I,J)=I  JCOL  = , 

JCOL(J, I)=I 

JCOL(I , I)=I  6 

JCOL(J, J)=I  ? 

8 

9 

10 


II.  JCOL  is  renumbered  to  provide  for  easy  construction  of  JRENT,  JCENT, 
JNEG , 1NEG , and  IDIAG. 


C RENUMBER  JCOL  AND  BUILD  JRENT 

DO  20  1=1  ,M 
KOUNT=0 
DO  35,  J=1,M 
JJ=jCOL(I,J) 

IF(JJ.EQ.  ) GO  TO  35  JCOL  = 

KOUNT=KOUNT+L 
JCOL  (I , J)=KOUNT 
35  CONTINUE 

JRENT(I)=KOUNT 
20  CONTINUE 


JRENT 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


2454  4 33432 


1 23456789  10 

1 2 

12  3 4 

1 2 3 4 5 

12  3 4 

12  3 4 

12  3 

12  3 

1 2 3 4 

12  3 

1 2 

1 2 3 4 5 6 7 8 9 10 
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III.  JNEG  records  the  CALC1  column  containing  the  downstream  appearance 
of  the  leg  number  as  a negative  element.  INEG  records  its  upstream 
occurrence . 


C 


45 


LOCATE  ALL  OF  OFF-DIAGONAL  ELEMENTS 
DO  45  K=1 ,ML 
I=ILEP(K, 2) 

J=ILEP(K,3)  JNEG  = 

JNEG(K)=JCOL(I , J) 

INEG(K)=JCOL(J ,1) 

INEG  = 


1 2 3 4 5 6 7 8 9 10  11  12  13  14 

2 3 4 3 4 4 4 3 3 3 3 5 4 3~ 


1 2 3 4 5 6 7 8 9 10  11  12  .13  14 

1111212111  1 2 1 I T 


IV. 


C — BUILD  JCENT  AND  IDIAG 

DO  65  I~1,M 
IDIAG (K)=JCOL(K,K) 

KOUNT=0 
DO  67  J=1,M 

IF(JCOL(J,I).EQ.O)GO  TO  67 
KOUNT=KOUNT+l 
67  CONTINUE 

65  JCENT(I)=KOUNT 


123456789  10 


JCENT  = 


245443343  2 


IDIAG 


123456789  10 
12  2 33223  2 2 
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V.  The  JCOL  elements  are  all  left-justified,  and  their  previous 
positions  are  set  equal  to  zero  by  the  statement  JCOL(I,J)=0. 

This  statement  must  precede  JC0L(1,K)=J  so  that,  in  the  event  that 
J=K,  the  compressed  JCOL  matrix  contains  its  non-zero  elements 
in  the  proper  location . ICOL  can  now  be  copied  from  JCOL  and 
be  passed  to  GAUSS  for  use  in  the  solution  process. 


COMPRESS  THE  JCOL  MATRIX 
DO  70  1=1, M 
NN  =JRENT (I) 

J=0 

DO  70  K=1 ,NN 

J=J+1  JCOL  = 

K1=JC0L(1 , J) 

IF(K1.EQ.O)GO  TO  75 
JCOL(I , J)=0 
JC0L(I ,K)=J 
CONTINUE 
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Phase  two  operation  of  the  CALC  subroutine  begins  with  initializing 


the  conductance  array  - CALC1,  and  the  constant  array  - CALC2,  to  zero 
values.  (See  Figure  A. 2-4  for  a flow  diagram  of  the  phase  two  operation.) 
A call  is  now  made  to  the  subroutine  TLEGCAL  for  each  leg  in  the  system. 
TLEGCAL  will  return  the  value  of  conductance  to  the  G array  in  the 
unlabeled  common. 

After  all  the  conductance  values  are  calculated  for  each  leg,  they 
must  be  entered  into  the  compressed  CALC1  array.  For  the  example  system 

the  CALC1  array  contains: 

c BUILD  CALC1  MATRIX 

DO  9099  K= 1 , ML 
I=ILEP(K,2) 

J=ILEP(K,3) 

L=IDIAG(I) 

LM=IDIAG ( J) 

CALC1 (I ,L) -CALC1 (I , L)+G (K) 

CALC1 ( J , LM) =CALC1(J , LM)+G (K) 

L=JNEG(K) 

LM=INEG(K) 

CALC1(I ,L) -CALC1 (I,L)-G(K) 

CALC1(J,LM)-CALC1(J ,LM)-G(K) 

9099  CONTINUE 


1 

2 

3 

4 

5 

1 

G1 

-G1 

0 

0 

0 

2 

“G1 

Gl+G2+G3 

-G2 

-G3 

0 

3 

-G2 

G2+G4+G5+G12 

"C4 

-G5 

"G12 

/. 

•t 

-G3 

-°4 

G3,G4',G6 

0 

5 

-G5 

"G6 

Gc+G,+G- 

J o / 

“G, 

/ 

0 

6 

-G7 

G7+G8+G9+G10 

G8”G9_G10 

0 

0 

7 

'G8"G9"G10 

G8+G9+G10+Gll 

"Gll 

0 

0 

8 

-°12 

-Gll 

Gll+G12+G13 

-C13 

0 

9 

"G13 

G13+G14 

-G14 

0 

0 

10 

-G14 

G14 

0 

0 

0 

1 

2 

3 

4 

5 
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CALC1  is  built  in  this  manner  for  each  iteration.  This  compressed 


form  speeds  the  solution  process. 

The  CALC2  array  contains  the  constant  terms  of  the  system  of 
linear  equations  that  describe  the  model.  Constant  pressure  drops 
in  legs,  external  flows  and  constant  pressure  sources  are  all  inserted 
into  this  array.  Any  constant  pressure  source  or  pressure  drop  is  multiplied 
by  the  conductance  of  the  leg  it  is  associated  with.  If  leg  (6)  has  a 
pressure  drop  term  - PDl.£G(6) , then  PDLEG(6)  will  be  multiplied  by 
the  conductance  for  leg  (6)  which  is  G(6) , making  the  resulting  term  a 
flow.  Thus,  all  external  flows  have  no  multiplication  factor. 

With  both  CALC1  and  CALC 2 filled,  the  TGAUSS  subroutine  is  called 
to  solve  for  pressures  in  the  system.  The  answers  are  returned  through 
the  CALC1  array  and  then  put  into  the  PN  array  which  contains  all  the 
system  node  pressures.  Now  a new  flow  is  calculated  for  each  leg  in 
the  system  based  on  the  recent  calculation  of  the  pressures.  The  new 
flow  is  equal  to  the  difference  of  pressures  between  the  nodes  of  the 
leg  plus  any  constant  pressure  drops  all  multiplied  by  the  conductance 
of  the  leg. 

The  solution  for  flows  in  all  the  legs  are  final  when  all  the  previous 
flows  (Q)  and  the  latest  calculated  flows  (FLOW)  are  within  a specified 
tolerance.  For  all  flows  if 

ABS  (FLOW-Q (IT) ) nm  /- 

ABS(FL0W)+1 

then  the  flows  have  converted. 
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If  equation  (l)  is  not  satisfied  in  each  leg  of  the  system  a new  value 
of  flow  will  be  computed  in  each  leg  by  the  following  equation: 


Q (IT)  = 


KIT)  + FLOW 
2 


These  new  flows  will  then  be  given  to  TLEGCAL  for  computation  of  new 
conductance  values  for  another  iteration.  If  all  the.  legs  do  not 
converge  after  fifty  iterations,  the  cycle  will  stop  and  al~  the  current 
values  will  be  used  as  Che  steady-state  variables.  Before  transfer  is  made 
back  to  THYTR  a last  call  is  made  to  TLEGCAL  to  distribute  pressure  drops 
and  flows  for  the  steady  state  conditions. 

4.2.3  Computations . The  only  direct  computation  made  in  the  solution 
of  the  steady  state  values  in  TCALC  is  the  calculation  of  FLOW.  The 
purpose  of  this  of  course,  is  to  establish  an  error  tolerance  in  flows 
that  is  reduced  through  iterations  to  meet  the  convergence  criteria 

as  discussed  in  the  previous  section.  The  majority  of  the  TCALC  subroutine 
handles  the  bookkeeping  necessary  to  manipulate  the  leg  and  node  numbers 
to  compute  system  pressures  and  flows. 

4.2.4  Approximations . The  coefficients  of  the  CALC1  array  are  linearily 
approximated  to  represent  the  system  conductances.  Inherent  approximations 
exist  in  some  of  the  constant  data  in  CALC?. 

4.2.5  Limitations . Most  limitations  exist  in  the  areas  of  physical  dis- 
continuities. TCALC  was  written  to  sol^e  a flow  balance  in  a system. 

Any  flow  discontinuities  that  occur,  such  as  in  a simple  unbalanced 
actuator,  must  have  mathematical  formula  to  describe  what  happens  to  the 
flow.  TCALC  also  requires  the  leg  pressure  drops  to  be  continuous  over 

a specified  flow  range.  When  this  does  not  occur,  as  in  a check  valve,  the 
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proper  input  from  the  check  valve  subroutine  must  be  fed  to  TCALC  so 
it  may  respond  to  the  changed  conditions.  Refer  to  Appendix  D SSFAN 
Technical  Manual  for  a more  thorough  discussion  on  the  limitations  of 


TCALC. 

A . 2 . 6 Variable 
Variables 
CALC1(  ) 

CALC 2 ( ) 

FLOW 

I 

G 

IFAIL, 1FLAG 
IL , IM 

INEG(  ) , JNEG(  ) 

JFC0L(  ) 

ITER 

IU,XV,J,JJ,JL, 
JX,JY,K, FOUNT, 
F1,2,LM,L1 

M 

ML 

PN(  ) 

PDLEG(  ) 

PEX 
QL(  ) 

QN(  ) 


Names 


Description 

Dimensions 

Array  of  conductances 

— 

Array  of  constants 

— 

Latest  value  of  leg  flow 

CIS 

DO  loop  counter 

— 

Array  of  conductances 

CIS/PSI 

Indicators 

— 

Dummy  variables 

— 

Arrays  containing  location  of  off  diagonal 
conductance  values 

— 

Computational  array 

— 

Iteration  counter 

— 

Dummy  variables 

— 

Number  of  nodes 

— 

Total  number  of  legs 

— 

Array  of  node  pressures 

PSI 

Location  of  pressure  drops  or  increases 

PSI 

Array  of  external  pressure  constants 

PSI 

Array  of  leg  flows 

CIS 

Flow  gain  or  loss  at  a pressure  node 
changed  to  an  M matrix  of  constants 

CIS 
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4*2.7  Subrout: Ine  Listing 


SUBROUTINE  TCALC 
****  REVISED  JULY  07,1076  **** 

DOUBLb  PRLCI3I0N  CALC1,CALC2 

CO.-b.OM  G(  90)  , CALC 2 { 55)  ,JPC0L(  55,20)  , CALC  1 ( 55 , 20 ) 
COw..ON/ICC/ICOL(  55,20)  , JRLNT(  55)  , JCENT(  55) 

CO.-l.tOM  /STKADY/PH(90)  ,QN{90)  ,PEX(90)  ,PDLc,G(90)  ,OL(90)  , 
+ QA,QS,01,  PUP,  PDOWN , rl  ,.-iL,NCPt\i,T  L’  R.-l , 

+ L.LGM , ICOM , I MV,  INX , I N2 , NUP( 9 0 ) ,NDWM(90)  , NLLEK  (90)  , 
+ILLGAD( 90) , I LEG  ( 1000) 

DIMENSION  I DIAG{  5 5 ) , JCOL(  5 5 , 5 5 ) , JNLG(  90)  , INEG(  90) 
EQUIVALENCE* JPCOL( 1,1) , JC0L( 1,1)) 

WRITE* 6,900) 

900  FORMAT ( 1*1 1 , 50X , 3 QHSTEADY  STATL  CALCULATION  DATA  ) 

DO  5 1 = 1,. -t 
ON* I )=0. 0 
?LX{  I ) = 0 . 0 
5 PM  ( I ) = 0 . 0 

DO  6 1 = 1,  -,L 
6 PDLKG( I ) =0. 0 
DO  00  1=1,55 
DO  Fj U J = 1 , 55 
90  JCOL( I , J ) =0 
DO  10  K = l,-tL 
I = M U P ( K ) 

J = N DWN ( K } 

JC0L( I, J)=I 
JCOL(  J , I ) = 1 
JCOL( I , I)=I 
JCOL(J,J)=I 
10  CONTINUE 

C RENUMBER  JCOL  AND  GUILD  JR  ENT 

DO  20  1 = 1,  -i 

kou:i?=o 

DO  3 5 J = l,.-t 
J J=JCOL( I , J) 

IP(JJ.LO.O)  GO  TO  35 
KOUNT=KOU«')T+l 
JCOL(  I , J)*’<OUMT 
3 5 CONTINUE 

JR ENT* I ) = MOUNT 
20  CONTINUE 

C LOCATE  ALL  Till.  OFF-DIAGONAL  LLLfl ENTS 

DO  4 5 K = 1 , . i L 
I = MUP(  K) 

.7  = .-.’  Dv-ui  ( K ) 

JNLG( K ) =JCOL( I , 7) 

45  INLG*  K) =JCOL( 7,1) 

C BUILD  JC ENT  AMD  I 01  AG 

DO  65  1 = 1,.. 

1 01 AG( I ) = JCOL{ 1,1) 

KOUMT=0 
DO  67  J = l,.-i 
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4.2.7  (ConLinued) 


IF ( JCOL(J, I) .ED. 0)  GO  TO  67 
KOUNT=KOUNT+l 
67  CONTINUE 

6 5 JCb'NT(  I ) =KOUNT 

C COil PRESS  Till.  JCOL  1ATRIX 

DO  70  1 = 1,  fl 
NN=J RENT ( I ) 
v7  = 0 

DO  70  K=1,NN 

7 5 .7=7  + 1 

K l=JCOL( I , J ) 

If’(Kl.EO.O)  GO  TO  75 
JCOL(  I , .7  ) =0 
J PCOL(  I , F ) =3 
70  CONTINUE 

C INITIALIZE  CALC  1 AND  CALC  2 ARRAYS  TO  ZERO 

ENTRY  T SC  A IX 
II  TLR=1 

j.VRITE(  6, 910) 

910  iFOROAT(//,  24X,  10HFLOW  OULSS , 4X , 1 3HPRbSSURb  DROP,  6X,  9HLEG  DELTP, 
+'  9X,  3HPUP,  1 2 X , 5 H P DOW  N , 9 X , 1 1HCOMDUCTANC  E , / ) 

200  DO  220  L 1 = 1 , 

DO  210  K 1 = 1 , 2 0 
ICOLf  LI , Kl)  = 0 
210  CALC1(L1,K1)=0. 

PEX( L 1 ) = 0 . 0 
OK ( L 1 ) = 0 . 0 

220  C A LC 2 ( L 1 ) = 0 . 

DO  221  L 1 = 1 , i L 

221  PDLEG( L1)=0. 0 

C COIPUTL  G*S  FOR  CALC  ARRAYS 

CALL  TLEGCAL 
DO  9099  K = 1 , • iL 
I = N U P ( K) 

J=N  OWN ( K ) 

L=I DIAG( I ) 

L/i  = I OIAG(  J ) 

CALC  1 ( I , L) =CALC 1 ( I , L)+G(K) 

CALC  1 ( J , L.i ) =C  ALC  1 ( .7  , L>1 ) +G(  K ) 

L=JNEG( K) 

L -1  = I \£.G(  K ) 

CALC  1 ( I , L) =CALC 1 ( I , L) -G( K } 

CALCM  7 , L: i ) =CALC  1 { 7,L.;)-G(K) 

9009  CONTINUE 

DO  700  IL=1 , 55 
DO  700  JL=1 , 20 

700  ICOL(  IL,  3L)=JPCOL(  IL,  7L) 

DO  400  J X = 1 , 1 1 L 

IF( PDLEG( JX) . LQ. 0. ) GO  TO  100 
JY=tlUP(  JX) 

CALC  2 ( J Y ) =C A LC  2 ( J Y ) -PDLEG( J X ) * C ( J X ) 

JY=MDWN( JX) 
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onr>  o o n o n n r>  n o 


A. 2. 7 (Continued) 


CALC  2 ( JY)=CALC2( JY)+PDLEG( JX) *G( JX) 

400  CONTINUE 

DO  (50  1 = 1, i ; 

0=1 DI AG ( I) 

CALC 2 ( I ) =CALC  2(1) + 0N ( I ) 

60  CALC  1(1, 3)=CALCl(I,J)  + PbX(I) 

WRITE/ 6, 2005)  ( (CALC  1(1,0)  ,0=1,20)  ,1  = 1, M) 

WRITE ( 6 , 2005 ) ( CALC  2 ( I ) ,I  = 1,M) 

WRITL(  6, 2004)  ( ( 1C0L{  1,0)  ,0  = 1,20)  ,1  = 1,.*.) 

2004  PORKAT( IX, 2016) 

2005  F0R.1AT(  IX,  10L12.  5) 
ir.'RITL(  6, 2005) ( PLX( I) , I=l,n) 

MRITL( 6, 2005) (PDLEG(I) ,1=1, ML) 

WRITL(6, 2005)  (QN(  I)  , 1 = 1,  .1) 

CALL  TGAUSS ( A , ITLR ) 

DO  410  1.1=1,  M 

410  ( Iri)=CALCl(  Iii , 1) 

WRITb( 6,9000) ( PN ( I ) , 1=1, M) 

WRITb( 6,9001) 

9000  FORMAT ( 1H0, ( 5X, 14HNODL  PRESSURES, 2X, 8F12. 3 ,/) ) 

9001  F0RnAT( 1R0) 

I?AIL=0 

CALCULATE  NEw  FLO*  RATES 
DO  435  IT=1 , nL 
I'J='1UP(  IT) 

I V=N OWN  ( IT) 

0OLD=OL( IT) 

FLOW=(  ( PN(  IlJ)  + PDLbG(  IT) -PN(  IV)  ) *G(  IT)  ) 

TEST  NEW  FLOW  RATES 

IF ( AOS ( FLOW-OOLD) / ( ABS( FLOW )+!.). GT. 0.0001) GO  TO  436 
RLC ALCULATt  FLOG  RATES 
QL( IT)=FLOW 
GO  TO  435 

436  QL( IT)  = ( OOLD+FLOW) /2 . 0 
I F A I L=  1 
436  CONTINUE 

IP( IFAIL.EO. 0)GO  TO  520 
I F ( I .'bR.  EQ,  50)  ‘./RITL ( 6,999) 

999  FORi .AT(  1 OX, 440****  WARNING  EXCbEOLD  50  ITERATIONS  IN  TCALC, 
+ lOH-PKOGRA. . CONTINUING,//) 

IF( ITLR. CO. 50)GO  TO  520 
ITER=ITER+1 
GO  TO  200 
520  CONTINUE 

.•I AXE  A LAST  CALL  TO  ALL  LEGS  TO  DISTRIBUTE  PRESSURE 
DROPS  AND  FLOWS  CALCULATED  FOR  STEADY  STATE  CONDITIONS 
DO  521  1=1,90 
C521  PDLEG( I ) =0 . 0 
CALL  TLLGCAL 
RETURN 
END 
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4.3  SUBROUTINE  TLEGCAL 


TLEGCAL  is  called  by  the  TCALC  to  obtain  a leg  conductance  and 
fixed  pressure  drops  for  a given  flow  guess  for  all  the  system. 

The  constant  pressure  drop  such  as  that  across  a check  valve,  relief 
va.!ve,  actuator,  or  pump,  is  passed  via  Pi)l.EG(NLEG)  in  common/steady. 

A positive  PDLEG(NLEG)  is  a pressure  rise  such  as  at  a pump,  a negative 
is  a drop  such  as  across  a check  valve.  The  leg  conductance  is  passed 
via  G(NLEG)  in  common. 

TLEGCAL  obtains  the  1 ine  and  component  pressure  drops  by  calling 
all  the  elements  in  the  leg.  The  leg  condnclance  is  computed  by 
dividing  the  leg  flow  by  the  leg  pressure  drop. 

A flowchart  of  TLEGCAL' s organization  is  shown  in  Figure  4.3-1. 

4.3.1  Theory 

LEGCAL  calls  the  elements  in  a leg  to  determine  the  pressure  drop 
for  a given  flow. 

The  leg  conductance  (inverse  of  resistance)  is  calculated  from  the 
leg  pressure  drop,  including  the  constant  pressure  drop  value 

G(NLEG)  = QA/ABS(DELTP) 

where 

DELTP  = PN (NUP (NLEG) ) -PUP+PDLEG (NLEG) 

The  conductance  is  always  positive.  Using  this  formula  the  conductance 
value  is  flow  dependent.  It  has  to  be  updated  whenever  the  flow  guess 
is  changed. 

4.3.2  Assumptions 

The  assumption  that  the  pressure  drop  can  be  described  using  the 
leg  prescure  drop  is  generally  valid.  If  for  some  reason  an  element 
in  a leg  cannot  be  described  in  this  manner  then  a pseudo  description  can 
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Called  from 
TCALC 


Do  NLEG  = 1.  ML 


Element 

A Line  or  Component 


Component 


Call  COMPE  for 
Component  Pressure  Drop 


Laminar 

or 

Turbulent 

Flow 


Turbulent 


Laminar 


Call  FRICT 


Call  FRICL 


Compute  Pressure 
Drop 


Calculate  and  Store 
Conductance  and  Constant 
Pressure  Drop 


Continue 


Return 


FIGURE  4.3-1 

TLEGCAL  ORGANIZATION 
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be  used  without  loss  of  accuracy.  This  could  involve  generation  a formula 
of  the  form 


AP  = Kj  + K2Q  + K3Q1,75  + K^Q2 


where  Q = leg  flow 

The  line  and  component  subroutines  would  then  provide  the  values 
to  the  K^,  K2>  and  constants. 

A. 3. 3 Computation  Method 

The  variable  Ql,  the  new  flow  guess,  is  first  split  into  its  absolute 
value  and  its  sign,  +!••()•  The  up  and  downstream  node  pressures  for  the  leg 
are  taken  from  the  PN(  ) array. 

Each  element  in  a leg  is  called  and  the  pressure  drop  through 
the  line  or  component  is  calculated  and  subtracted  from  the  upstream 
pressure,  PUP.  Once  the  entire  leg  pressure  drop  has  been  determined 
the  new  conductance  value  is  computed.  The  variables  IND,  and  KNEL  are 
the  component  number  and  the  connection  number  respectively. 

The  common  variables  INZ  and  INX  are  set  equal  to  the  number  of 
elements  in  the  leg  and  the  actual  element  that  is  being  calculated  respectively. 
This  allows  particular  component  subroutines  to  determine  which  end  of  the 
leg  they  are  connected  to,  and  hence  which  node  is  located  at  the  component. 

4.3 .4  Approximations 

The  use  of  a formula  requires  some  approximations  but  these  are 
usually  related  to  approximations  in  the  component  model  and  are  an  integral 
part  of  the  component  model . In  general  this  method  is  good  but  it  could 
be  easily  extended  to  a higher  order  approximation  if  it  was  found  desirable. 
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A. 3. 5 Limitations 


So  far  we  have  not  found  any  limitations  to  the  technique  used 
in  TLEGCAL  itself. 

However,  some  of  the  component  subroutines  called  by  TLEGCAL 
such  as  the  bootstrap  reservoir, pump  and  actuators,  are  complicated 
by  the  interaction  between  the  flow  guesses,  flow  direction  and  node 
pressures . 

Some  of  these  subroutines  use  calculations  which,  though  conforming 
to  the  basic  calculation  technique,  do  not  fall  into  any  simple  category 
and  have  to  be  treated  individually. 

4.3.6  Variable  Names 

Description  Dimensions 


Variable 

DELTP 

INZ 

1 

K 

KNEL 

IND 

ML 

PUP 

QA 

QT 

Q1 

QS 


Line  Pressure  Drop 
Number  of  Elements  in  Leg 
Address  of  Leg  Data  in  1LEG 
Ith  Element  in  a Leg 
Component  Connection  Number 
Component  or  Line  Number 
Total  Number  of  Legs 
Flow  Dependent  Leg  Pressure  Drop 
ABS  Value  of  Leg  Flow 
Leg  Transition  Flow 
Leg  Flow  Guess 
Flow  Sign  CIS 


PSI 


PSI 

CIS 

CIS 


For  variables  in  common  refer  to  Paragraph  3.3. 


r>o  on  n n n n o no 


4.3.7  Subroutine  Listing 


SUBROUTINE  TLhGCAL 
C****  REVISED  AUGUST  5,  1076  **** 

COMMON  G{  90) 

COMMON  /TRANS/ P(  300)  ,0(  300)  ,C(  300)  ,TC(  300)  ,TW{  300)  ,TF(  300)  , 

+ ACF ( 300)  ,ACV»(  300)  , OXF(  300)  /TImc,,  OLLT , PI  ,ULINE,NLL 
COMMON  / CON P/  LTY PL ( 9 9 ) ,NC( 99)  ,KTEMP(  99)  , IND,  I EUTR , TULL 
COMMON  / LINE/  PARS ( ISO,  4 ) ,TLto(  2000)  , TLF(  2000)  , LST\RT(  150)  , 

+ N LS  LG( 150) 

COMMON  / 3TLA0Y/ PN ( 90)  ,ON(  90)  , PLX(  90)  , PDLLG(  90)  ,QL(  90)  , 

+ QA,QS,Q1,  PUP,  PDwN,.-i,HL,NCPN,TER.-i, 

4-  LLGN,  ICON,  INV,  I NX,  INZ  ,NUP(  90)  ,MDwN(  90)  ,NLLLr.{90)  , 

+ I LEGAO( 90) ,ILFG( 1000) 

FIND  TUB  SIGN  OF  THE  FLOw  GULSS  AMD  ITS  ABSOLUTL  VALUE 
DO  200  NLEG=1 , • i L 
T b RM  = 0 . 0 
I NV=  1 

01=0L(NLLG) 

0A=A3S( 01) 

IF(OA. Lb. . 00901 )0A=. 00001 
Ob  = S I GN { 1.0,01) 

CALCU LA I'L  THE  FORMULA L FOR  THE  LLG  PRtSSURE  DROP 
INLL=NLbG 
I’MZ  = NLLLi'i(  NLLG) 

INZ  - NO  OF  LLLMLNTS  IN  A LLG 
IN EL  - LtG  NUMBER 
P!JP=?U(NU?(NLLG)  ) 

PDV/N«  PM ( M DUN  ( N LEG)  ) 

NR IT L ( 6,900)  N LEG  , I NZ  , NUP  ( N Lr G ) , N DMN  ( A LLG ) 

900  FOR.iAT(  10X,  511  9) 

WKITfc( 6,910) PUP, PDwN, 01 
919  FORMAT ( 1 OX , 5 Ll 2 , 5 ) 

CALL  LACH  L LbML  NT  I -J  THL  LLG 

I=ILLGAD( MLEG) 

DO  6 00  K=1,I,J2 

I MX  - CURRENT  t,LL.»LMT  'JO.  I -J  LLG 
I UX=K 

1\M)=ILLG(  I) 

KNLL=ILEG( 1+1) 

1 = 1 + 2 
ICOU=KNLL 

ICON  - CONNECT I ON  NO. 

IF  THL  LLL.’iL NT  IS  A LINL  GO  TO  500 
IF ( IMD.LQ.0)  GO  TO  500 
CALL  COM PL 
GO  TO  600 

***  THIS  3LCTIOM  ADDS  TMu  VALUES  INTO  THL  FORMULAE  FOR  THL  LI 'JLS 

500  CONTINUE 

LOC=KNLL*  2-1 


u—  -t**~  \ 


o o 
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(Continued) 


LOCO=KNLL* 2 

wKITL( 6,503)  LOC , TF ( LUC ) , PUP 
503  FOR. .AT ( 3X,  1110, 2L12,  5) 

OT=PAR.i(  KtlLL,  4 ) *VIGC(  rF(  LOC)  , PUP) 

I F ( OA . GT , QT ) GO  TO  505 
DLLTP=OA*FRICL( KNLL,TF( LOC) , PUP) 

GO  TO  503 

505  OlLTP=?;<ICT{  KNbFj,TF(  LOC)  , PUP)  *QA* * 1 . 7 5 
593  CONTI NUL 
P(  LOC ) =PUP 

I F ( PLR.l , GT,  0.0)  P ( LOC  ) =TLR.-i 
PUP=P(  LOC ) -DLLTP 
P( LOCO) = PUP 
0( LOC) =-01 
0(  LOCO)  -Ol 
GO  TO  600 
600  CONTI'JUL 

Dfc.LTP=?N(  MUP(  NLLG)  ) -PUP+Tt R.-i 
C ( \' LLG) =QA/A6S ( DLLTP) 

v\'RITL(  6 , 50)  NLLG,  01 , PDLKG(  NLLG)  , DLLTP , PN(  NUP(  NLLG)  ) , 
+ PN(  NDaN(  NLLG)  ) ,G(  UL£G) 

I F ( I W,  LQ«  0)  GO  TO  200 
POLLG(  NLLG) =0, 0 
5 0 FORMAT (1311 
200  CONTI  'iUL 
PL TURN 


LLG  rlO  ,I3,5F16.5,L20.3) 


5.0  LINE  SUBROUTINE 


5.1  SUBROUTINE  TLINEA 

TLINEA  simulates  a line  or  pipe  connected  to  two  components.  It  divides 
each  line  into  segments,  the  Length  of  each  segment  being  not  less  than  the 
volume  flow  rate  times  the  time  step  divided  by  the  cross  sectional  area  of 
the  fluid.  The  subroutine  calculates  the  wall  and  fluid  temperatures  of  each 
line  segment. 

The  values  of  the  flows  nr  I pressures  in  the  line  are  calculated  by 
the  steady  state  subroutines. 

TLINEA  is  called  by  the  main  program  at  the  beginning  of  each 
new  time  step  and  uses  the  latest  values  of  pressures  and  flows,  to 
comp'W-o  line  segment  temperatures. 

5.1.1  Math  Model  - The  line  is  represented  by  n number  of  segments.  Each 
segment  consists  of  two  nodes,  one  fluid  and  one  wall,  and  the  end  segments  are 
connected  to  components  as  shown  in  Figure  5.1-1. 
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The  line  calculations  are  conducted  as  follows: 


. i 


!-  The  component  walL  and  fluid  temperatures  are  predicted  for  the 
present  time  itep.  TC  and  TF  equal  the  component  wall  and  i luid 
temperatures  of  the  last  time  step  and  ICO  and  TFO  arc  equal  to 
tiic  component  wall  and  fluid  temperatures  of  the  2nd  to  last  time 
step.  The  predicted  wall  and  fluid  temperatures  are  computed  as: 

TCP  = TC*2  - TCO 

TTP  = TF*2  - TFO 

2.  A zeroth  line  segment  is  assumed  to  exist  (upstream  of  the  first 
line  segment)  halving  wall  and  fluid  temperatures  equal  to  the 
predicted  component  temperatures. 

3.  As  shown  in  Figure  5.1-2,  the  predicted  temperatures  of  the  zeroth 
segment  and  the  previous  time  step  calculated  values  of  the  second 
segment  are  used  to  calculate  the  new  tempera tures  of  the  first 
segment . 

4.  The  new  temperatures  of  the  first  segment  and  the  previous  time, 
step  temperatures  of  the  third  segment  are  used  to  calculate  the  new 
temperatures  of  the  second  segment.  This  continues  until  the  n-i 
segment  temperatures  have  been  calculated. 

5.  The  n+1  line  segment  is  assumed  to  exist  (downstream  of  the  nth  line 
segment)  having  wall  and  fluid  temperatures  equal  to  the  previous 
time  step  calculated  values  of  the  component. 

6.  The  new  temperatures  of  the  n-1  line  segment  and  the  previous  temp- 
eratures of  the  n+1  line  segment  are  used  to  calculate  the  new 
temperatures  of  the  nth  segment. 


The  math  model  for  the  line  includes  heat  transfer  to  and  from  components 
attached  to  each  line  end  as  well  as  to  and  from  individual  segments  of  the  line. 
For  the  calculation  six  nodes  are  considered:  three  fluid  nodes  and  three  wall 

nodes  as  shown  in  Figure  5.1-2.  The  temperatures  of  the  J-l  wall  and  fluid  nodes 


FLOW 

► 


LINE  SEGMENT  NODE  REPRESENTATION 
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are  TLW(J-l)  and  TLF(J-l)  , the  temperatures  of  the  J wall  and  fluid  nodes  are  TLW(J) 
and  TLF(J),  and  the  temperatures  of  the  J+l  wall  and  fluid  nodes  are  TLW(J+1)  and 
TLF(J+1) . Two  heat  transfer  equations  are  written  to  solve  for  TLW(J)  and  TLF(J), 
using  the  line  material  properties  and  dimensions,  the  atmosphere  and  structure 
temperatures  external  to  the  line,  and  TLW(J-l)  TLW(J=L),  and  TLF(J-l).  (Note: 
TLF(J+1)  = TLF(J),  see  assumptions).  One  equation  is  for  heat  transferred  to  and 
from  the  J fluid  node.  The  second  equation  is  for  heat  transferred  to  and  from 
the  J wall  node. 

The  first  equation  represents  three  modes  of  heat  transfer  with  the  J fluid 

node : 

1.  conduction  to  and  from  the  J-l  fluid  node 
R1*(TLF( J-l) -TLF(J ) ) 

where  Rl  is  the  conduction  coefficient  and  is  equal  to  CF/ (2 . *DxF(INO) / 
ACF(INO)+RMF*DELT/  (ACF(INO)  **2*RH0II.) ) 

2.  convection  to  and  from  the  J wall  node 

B9*(TLW(J)  - TLF(J)) 

where  B9  is  the  convection  coefficient  and  is  equal  to  UFW1L*ASFW (INO) 

3.  heat  transfer  due  to  mass  transfer  into  the  J segment  from  the  J-l 
segment. 

MCp*(TLF(J-l)-TLF(J) ) 

where  MCp  is  the  flow  rate  and  is  equal  to  Q(L.1)*RH0IL*CPFN 
These  heat  transfer  modes  are  combined  to  produce  the  equation  for  heat  transferred 
to  and  from  the  J fluid  node: 

MCp  * (TLF  ( J ) -TLF ( J ) nT  _)  = P.1  * ( TL F ( J- 1) - TLF ( J ) ) +B9  * ( TLW ( J ) - TLW ( J ) ) + 

DELT  0LD 

Q(IL)*RHOIL*CPFN*(TLi’(  J-l)  -TLF(J)  ) (1) 

where  MCp  is  equal  to  FNM(  INO) *CPFN 
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The  second  equation  represents  three  inodes  of  heat  transfer  with  the  J wall 


node: 

1.  conduction  to  and  from  the  J-l  and  J-fl  wall  nodes  respectively 

R3  * (TLW ( J- 1 ) -TLW ( J ) ) 
rA*(TLW(J+1)-TLW(J)) 

whore  R3  and  R4  are  the  conduction  coefficients  equal  to  CW(INO)/2.0* 
DXF(INO) /ACW(INO) ) 

2.  a.  convection  to  and  from  the  J fluid  node 

B9*(TLF(J)-TLW(J) ) 

where  B9  was  defined  previously 

2.  b.  convection  to  and  from  the  external  atmosphere 

C3*(TA(IN0)~TLW(J) ) 

where  C3  is  the  convection  coefficient  and  is  equal  to  UAW(INO)* 
ASAW(INO) 

3.  radiation  exchange  with  the  surrounding  structure 

C1P*(TST(INO)-(TLW(J)+460)A) 

where  CIP  is  the  radiation  coefficient  and  is  equal  to  SIGMA^SHAPF^EPSION* 
ASAW(INO) . 

These  heat  transfer  modes  are  combined  co  produce  the  equation  for  heat 

transferred  to  and  from  the  J wall  node: 

MCp  *(TLW(J)-TLW(J)  )=R3*(TLW (J-1)-TLW(  J) ; +■ 

DELT 

R4*(TLW(J+1)-TLW(J))+ 

(2) 

B9*(TLF(J)-TLW(J))+ 

C3*(TA(INO)-TLW(J))+ 

CIP*(TST(INO)-(TLW(J)+450)4) 


where  MCp  is  equal  to  WNM(INO) *CPWN 


A thermal  model  of  the  above  heat  transfer  terms 


for  three  line  segments 


is 


shown  in  Figure  5.1-3. 


INLET 

FLUID 

TLF(J-l) 


EXIT 

FLUID 

_TLF  (J+l)  = 
TLF(J) 


FIGURE  5.1-3 


B9,C3 

MmCp 

MCp 

Rn 

cip 


thermal  model 


CONVECTION 

STORAGE 

FLOW 

CONDUCTION 

RADIATION 


5.1-5 


5.1.2  Assumptions 


1.  Atmosphere  and  structure  temperatures  remain  constant. 

2.  Predicted  temperatures  are  based  upon  the  previous  two  calculated  values. 

3.  Temperature  of  the  fluid  that  leaves  each  node  is  the  temperature  calculated 
for  this  node,  TLF(J) . 

4.  The  interface  conductance  between  the  line  and  components  is  infinite. 

5.  The  wall  node  is  all  at  the  same  temperature. 

6.  The  emissivity  of  the  walls  is  a constant  (.3  is  use;!  for  steel). 

7.  Transition  from  laminar  to  turbulent  flow  is  assumed  to  occur  at  a Reynolds 
number  of  12C0. 

8.  Friction  factors  used  are  based  on  circular  cross-section,  smooth  ID,  drawn 
tubing. 

5.1.3  Computational  Methods 
Section  1000 

Each  line  data  card  is  read  in  and  the  equivalent  line  lengths  for  bends  and 
fittings  is  calculated 

EQUI VL=DIA* (N45ELB*12 .+N90ELB*5  7 .+ 

NALT90/ (45. *4 . 65)+NAGT90/ (90 .*7.5) 

+PLENCTH (N) *DIA) / 100. 

The  equivalent  line  length  js  then  added  to  the  actual  line  length  and  Is  used  >o 
calculate  the  laminar  and  turbulent  flow  constants. 

If  the  line  segment  length  DELTAX(INO)  is  left  blank  a value  of  36  inches  is 
assigned  and  this  number  of  line  segments  is  computed.  Line  temperatures  and  input 
physical  parameters  are  assigned  to  the  appropriate  arrays  and  the  data  is  printed. 
The  next  set  of  line  data  cards  is  then  read  in.  The  above  is  repeated  until 


the  data  for  all  the  lines  are  read  in. 


Section  2000 


The  segment  length  for  each  line  Ls  recalculated  based  on  the  fluid  flow  in 
the  line.  If  the  segment  length  is  larger  than  the  read  in  value,  the  appropriate 
arrays  in  line  are  initialized  to  reflect  the  different  segment  size  and  the 
new  segment  length  is  printed  out.  Otherwise  this  program  continues 
to  check  the  next  line. 

After  each  line  has  been  interrogated  the  fluid  and  wall  temperatures  for 
each  line  segment  node  is  initialized.  The  heat  transfer  coefficient  for  the 
fluid  to  the  line  wall  is  calculated  as 

UFWIL=UFW (AAA,  DDD,  ABS (Q (INAU) ) , TF(INAU) , P(1NAU)) 

The  old  predicted  temperatures  are  also  calculated 

TFO (INAU) =TF (INAU) 

TCO  ( INAD ) =TC.  (INAD) 

Section  3000 

All  the  constants  dependent  on  the  current  values  of  the  line  volume  flow 
rates  and  pressures  are  computed. 

If  there  is  only  one  segment  then  the  fluid  and  wall  temperatures  are  calculated 
with  upstream  and  downstream  nodes  being  the  end  components. 

If  there  is  more  than  one  segment  then  the  first  segments  fluid  and  wall 
temperatures  are  calculated  with  the  upstream  node  being  the  upstream  component. 

The  other  line  segments  are  calculated  as  discussed  in  the  math  model  until  the  last 
segment  is  reached. 

The  last  segment  is  calculated  with  its  downstream  nodes  being  the  downstream 
components.  The  two  temperatures  of  each  segment  (wall  and  fluid)  are  stored  to 
be  used  by  the  line  subroutine  at  next  time  step.  The  four  end  segment  wall  and 
fluid  temperatures  are  stored  in  COMMON/TRANS /arrays  to  be  transferred  to  the  other 


subroutines . 


5 • 1 • 4 Approximations 

(1)  The  predicted  temperatures  n,  i 

at  the  beginning  of  each  line  are  approbated 

on  the  pest  time  history  of  the  component  temperatures. 

5-l-5  Limitations 


See  technical  summary. 
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Variable  Listing 

Variable 

A(  ) 

— ucscripaon 

Dimension 

dummy  computational  array 

AAA 

dummy  variable 

ACF 

cross  sectional  area  of  the  fluid 

2 

IfT 

ACW 

cross  sectional  area  of  the  wall 

IN2 

ASAW 

external  surface  area  of  the  wall  segment 

IN2 

AS  FW 

internal  surface  area  of  the  wall  segment 

2 

In 

A2.A9.B9 

dummy  variables 

«(  ) 

dummy  computational  array 

c,  cw 

thermal  conductivity  of  the  walls 

WATTS/ IN- °F 

CF 

dermal  conductivity  of  the  fluid 

WATTS/ IN- °F 

Cl  Di 

dummy  variable 

CID2 

dummy  variable 

CIV 

radiation  coefficient 

WATTS/ °F 

CPFN 

specific  heat  of  the  fluid 

WATTS  -see /LBm- 

CPWN 

specific  heat  of  the  walls 

WATTS-sec/LBm- 

Cl, C12 ,C3, 
C9 

dummy  variables 

DDD 

dummy  variable 

DEL TAX 

distance  of  each  line  segment 

IN 

DIA 

outside  diameter  of  the  line  or  wall 

IN 

DIAINS 

outside  diameter  of  the  line 

IN 

DXF 

distance  from  the  line  segment  node  to  inter- 
face with  next  segment 

IN 
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Variable 

Description 

Dimension 

EPSION 

emissivity  factor  for  radiation 

- 

EQU1VL 

equivalent  line  length 

IN 

FNM 

fluid  mass  of  each  node 

k^m 

FTEMP 

dummy  variable 

- 

FLTEMP 

input  fluid  temperature 

° F 

FWTEMP 

dummy  variable 

- 

INAD 

downstream  leg  address 

- 

INAU 

upstream  leg  address 

- 

INO 

line  number 

- 

[,  JJ,  JM1 

dummy  variables 

- 

MTYPE 

material  type  of  the  line  wall 

- 

NAGT90 

number  of  bends  greater  than  90° 

- 

NALT90 

number  of  bends  less  than  90° 

- 

NPFRIC 

percentage  increase  in  line  friction 

- 

N45ELB 

number  of  45°  elbows 

- 

N90ELB 

number  of  90°  elbows 

- 

P LENGTH 

total  line  length 

IN 

REN 

Reynolds  number 

- 

RHOIL 

fluid  density 

LBm/IN 

RHOW 

wall  density 

LBm/IN 

RMF 

dummy  variable 

- 

R1,R3,R4 

dummy  variable 

- 

SHAPE 

radiation  shape  factor 

- 

SIGMA 

Stefan-Boltzmann  radiation  constant 

WATTS /IN 2 

SPMAF 

dummy  variable 

- 

SPMAW 

dummy  variable 

- 

TA 

surrounding  atmospheric  temperature 

°F 

TC 

storage  variable  (temperature  of  the  component) 

°F 
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Variable 


])i  mens  ion 


Description 


TCO 

storage  variable  (old  temperature  of  the  component) 

°F 

TCP 

predicted  component  temperature 

°F 

TF 

storage  variable 

- 

TFO 

storage  variable  (old  temperature  of  the  component 

fluid) 

°F 

TFP 

predicted  fluid  temperature 

°F 

TLF 

temperature  of  the  segment  fluid 

0 F 

TLW 

temperature  of  the  segment  wall 

°F 

1ST 

surrounding  structure  temperature 

° F 

TO 

storage  variable 

UAW 

external  heat  transfer  coefficient  of  the  wall 

WATTS/ IN 2-°F 

I'FWIL 

internal  heat  transfer  coefficient  of  the  wall 

WATTS /IN2-0 F 

WNM 

mass  of  each  line  wall  segment 

LBm 

wthick 

wall  thickness  of  the  line 

IN 

I 
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SUBROUTINE  TLINLA 
C ***  REVISLD  .'i AY  1,  1076  *** 

COMMON  /TRANS/ P(  300)  ,r>(  300)  ,C(  300)  ,TC{  300)  ,TW(  300)  ,TP(  300)  , 

+ ACF(  300)  , ACW ( 300)  ,DXF(  300)  , TIME,  OLLT,  PI  ,NLIML,  NLL 
COM.iON  /LI/iIT/MNLINt  , .■i‘JLL, MNLhG,  i>iNNODL  , .-IN PLOT, . N LPTS  , . iD3 
COi-i.iON  /LINb/PARM( 150, 4)  ,TLw(  2000)  , TLF ( 2000)  , LSTART(  150)  , 

+ N LS  LG{ 150) 

COMMON  /COu?/LrYPL(  00)  ,NC( 09)  , KTLMP(  90)  , IND,  ILNTR,  IHLL 
COMMOI  /FLUI D/ATPRbo , CF , CPFN , FTbMP,  PROP(  13,3) 

DI  ■iLNSION  TA ( 300)  ,TST(  300)  ,UA.v(  300)  ,TFO(  300)  , DbLTAX ( 150)  , 

+TCO(  3 00)  ,SP.iAF(  150)  ,SP.iAw(  150)  , PLbMGTH ( 1 50 ) ,A(  2, 2)  ,3(  2) 
DIMENSION  LC  ( 300)  , A SAN  ( 150)  ,A3P'.:(  150)  , FNM(  150)  ,Cw(  150) 

+ , wNri  (150)  , FwTb  1 P ( 300) 

EQUIVALENCE  ( C ( 1 ) , LC ( 1 ) ) , ( PA PM ( 1,1), PLtNGTH ( 1 ) ) 

DATA  SIGiiA/  . 3 49L-1 1/ , Gll-APF/  . 9 6/  , b PS  ION/  . 3/ 
kLN=  1 200. 

IF ( ItNTR) 1000,2000,3000 
1000  CONTINUE 

C TWO  = I HD  I VI  DUAL  LI  NL  NUMOER 

C LINbT=LI 4b  TYPb 

C N P F R I C = P b RC b N ? A G b INCREASE  IN  LINK  FRICTION 

C NPivr  -PERCENTAGE  INCRLAGL  IN  w LIGHT 

C N45EL3-NUM3LK  OF  4 5 DbG  LLBOWS 

C U 9 0LL3 -NUMBER  OF  90  DLG  b LOONS 

C NALT9 0=TOTA L OF  -3LND  ANGLlS  . LT.  90  ObG  DI  G 

C NAGT9  0-TQTA L OF  3 b N D ANGLES  .Gb.  90  DLG  DlC 

C LINbTH(N)  = LI  JF  PLENGTti 

C OI A -OUTS I Ob  DI  AtibTLP. 

C WTrilCK-wALL  THICKNESS 

C .>iTYPl  -MATERIAL  TYPb 

C DbLTAX(  INO) -DISTANCE  OF  GLG.iL.NTS 

C UAvv  ( N ) = HLAT  TRANSFER  COLFF.  A.-.ilhNT  TO  WALL 

C TA  ( N ) -TEMP.  OF  A.tUI.-Nf,  DbG.  F 

C TLF(N)  =TEMP.  OF  FLUID,  DbG.  F 

C TST(  N ) =TL.-iP.  OF  GTRIJCTU Rb,  DLG.  R 

C 

C PA  R. i ( N , 1 ) = LI  i L LENGTH 

C PA  R>»  ( N , 2 ) = INSIDL  LI  IL  DIA-OLAI'iS 

C PAP.!(M,3)  = b GUI  VL 

C PAR.i(  N,  4 ) = TRANSISTION  FLOG 

LSTART( 1 )=1 
,vRITb(  6, 400) 

400  FORMAT  ( //1 1H  LI  it  DAT  A , / 1 Oti  LI  41,  NO.  , 5X , 6HLLNGT.; , 5X, 

+ 3 il  INTERNAL,  7X,  4. 1 J ALL,  OX,  6HDLLT  AX , 8X , 7HA  .3 1 LNT , 4 X , 9HSTRUCTUR  I. , 
+ 5X,  5HFLIJID,  7V,  Oil. i A I'l.RI AL , / 29X  , 3HDI A , 7X , 9HTHIC  KNESS , 21X, 

+ 4HT»irtP,  3X,  4t;  PbMP,  9X,  4HTLMP,  10X,  4HTYPL  ) 

DO  1100  I NO- 1 , N LI NL 

RLAD(  5,  433)  X , i-.TYPL  , N PFRIC , N PWT , K 4 5L  L3  , N9  Or- LP  , HALT 9 0 , NAGT9  0 
433  FORMAT ( 815) 

RLAD(  5,  4 39  ) PLbNGTiJ  ( I NO)  , DI  A , NTUICK  , DbLTAX(  INC)  ,UA»(  I.jO)  , 
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5.1.7  (Continued)  pTT  ‘ > 

t L J * i 1 v a *■>  —* 

+ To  i’(  I inJO)  ,TA(  I 'JO)  , FLTL.1P 
430  FORMAT ( 31 10. 0) 

IF ( I-40.NL. M)  VnRITt(  6, 430)  '4 
430  POR.,AT(  IX,  4311  TUb  LI.4L  CAROS  ARL  OUT  OF  ORDLR  AT  .JU.43FR  ,15) 

. i = 14  * 2 
LC  ( . i ) = 1 
LC  ( 1 ) = 1 

T F ( LI.mLT.LT.  10)  GO  TO  65 
LC  (..)=  — ! 

LI 01 r= LIMIT- 10 

6 5 LOU  I VL=PT  A*  ( t'4  4 5LL3*  1 2 . +NO0LL3*  57 . +14  ALTO  0/(45. *1.65)  + 

+ MAG"’ 00/  ( 0 0 . * 7 . 5 ) + PLLNGTH  ( fJ  ) * D I A ) / 1 0 0 . 

C CALCULATE.  .4U*-,3LI<  OF  SbG.iLNTS 

I ¥ ( UAw  ( I JO)  .liQ.0.0)  UAw{  I‘4O)=0. 0056 
I F ( Dl:  L FAX(  I MO)  . tO.0.0)  0 L LTA  X ( I i'JO  ) = 3 6 . 

IF(  FLTL.'i P.  LO.  0 . 0 ) ?LTL.iP=FT10iP 
MLSLG(  1 .40)  = ? LL  MOTH  (0  ) / DLL  2 A X ( I MO) 

LSTA P T ( T 4 0+ 1 ) = LS T A RT ( I JO)+iJLStG(  I MO) 

I 40=1 40 
INARM  MO*  2 
I’.vA'J  = I JO*  2- 1 
RUO'/,  = PROP(.-iTYPl,  2) 

CPu'.4=°ROP(  ilTYPL  , 1 ) 

F.jTL.'i P(  I NAD ) =FLi’i  , |P 

F»/TL,iP(  IiJAU)=FLTl.-.P 

Dl  M‘JG  = DI  A-  2 . 0*.JT.1ICK 

PA Pm ( W , 2 ) = DI  AI  Jo 

?AF.i(M,3)  = lQUIVL 

PA;<.,(M,  4 ) = . 7 35 4*  Rl:  M*  DIA I MS 

C J(  IMO)  = ?ROP(.iTYPL,  3) 

AC,J(  I MD)  = PI*  ( DTA*  * 2-DIAIMS*  * 2 ) /4 . 0 . 

ACW  ( I JAD)  =ACL  ( I'JO) 

AC.v  ( I iJAU  ) =AC.<  ( I JD) 

( imj)  =ac.i ( i nd ) * plow*  dl  lta x ( i .jo ) 

SP.-iA.j(  I,'JD)=-.v:J.‘i(  i.jd)  *cp^.j 
ASA.;  ( I JD ) = PI  * Dl  A*  DLLTAX ( 1.40) 

ACF(  I '".))  = PI  * 01  M JS**2/4 . 0 
ACF(  I JAU)=ACr ( I.vO) 

ACF ( I MAD) =ACF( I JD) 

ASP** ( I 4D)=P1*DIAI Mo* DLLTAX ( I JO ) 

?P(  l;4A!J)  =FLT1-.!P 
TF(  1 .4AD)  =FLTL  *i  P 
T,<  ( I\MJ)=FLrt.iP 
Tu  ( I ‘4  AD)  =F  LTh. , P 

,JPITl(  6,  410)N,  PLL'JGTrl(M)  , DIA I MS , MT.IICK  , DLLTAX  ( N ) ,TA(.J)  , 

+ TST(  N)  , F LTL1P , . ,TY  PL 

410  F0R.1AT(/1X,  15, 8X,  F3. 4, 4X,  F8. 4 , 5X , F8 . 4 , 5X , F8 . 4 , 7X , F3 . 4 , 4 X , F8 . 4 
+ ,5X,FR.4,6X,I4) 

T3T(  IND)  = (TST(  I’mD)  + 480.  ) **4 
110  0 CO'JTI.'JUL 
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5.1.7  (Continued) 


IF ( N LINE . GT . i iULI  \'L- 1 ) GO  TO  252 
KbTURN 

252  ,v’RITb(  6, 475)  NLINL,  LST-\RT(  NLIULl  , NLSLG( N LINE ) 

<1 75  F0R.1AT(  5X,  25HLRROR  IN  SUBROUTINE  TLINE ,3110) 

STOP  5101 
2000  CONTINUE 

C INITALI2 ING  ALL  TL.1P.  IN  LINE 

DO  2012  I=1,NLINL 

XD!,L=ABS(Q(  1*2-1)  ) *DLLT/( PARH( N , 2) **2*PI/4. ) 

IP( XDLL. LL.DLLTAX( I) ) GO  TO  2012 
DLLTAX( I ) = XDLL 

Ip(  DLL  TAX  ( I)  .GT.  PLLNGT  0 ( I ) ) DELTA  X(  I ) =PLENGTil  ( I ) 

NRITL(  6,000)  1 , DLLTAX(  I) 

900  FORilA'P(  10X,  15HTHL  DLLTAX  IN  LINE,  15, 2211  HAS  BEEN  CORRECTED  TO, 

+ FI  5.5,711  INCHES,//) 

N LS  LG  ( I ) = PLLNGTil(  I )/OLLTAX(  I ) 

ASFN(  I ) = P I * PA  Ri  1 ( 1,2)*  DLLTAX(  I ) 
wN,l(  I ) =AC>v  ( I ) * RllOW*  DC  LTA X ( I ) 

sp.iAw(  i )=.j;li(  i)  *cp.im 

2012  ASAW(  I ) = PI  * PA  R.-i  ( 1 , 2)  *DF.LTAX(  I ) 

2013  INO=l 

2010  J=LSTART( I NO) 

INAD  = I NO*  2 
INArJ  = I MO*  2-1 
AA\=ACF( INO) 

DDD=PAR.'i(  INO,  2) 

UFWIL=;jF«(  AA\, ODD, ABS(C(  INAU)  ) ,TF( INAU)  , P(  INAU)  ) 

TL.-J(  J ) =F*vTLt i P(  I NAU ) 

2020  TLF ( .1 ) =FWTbi-iP(  INAU) 

a.ii=a-i 

IF  ( Ji-.l.LO.O)  0.',1  = 1 
TLvi  ( J ) =TLF  ( 3 ) 

TL*(  J)  = ('JAN(  INO)  * ASAvv  ( 1 NO)  *TA(  I NO) -UFWI  L*  ASFW  (INO)  *TLF(  J) 

1 + S I G !*i  A * L P S I O H * S H A P F * A S A . 1 ( INO)*(  rST(INO)  ) )/(UAW(  INO)*.\SAW 

2 (IHO)-UFwIL*A3Prf(  I ■JO)  +3  IG.'IA*  EPS  ION* 5 il A PF*  ASAW  ( INO)  *TLW(  J.A  1 ) * * 3 ) 
J=J  + 1 

I F ( J . Lb . ( LSTA RT ( I NO ) +N  LS  LG ( I NO ) - 1 ) ) GOTO  2020 
C( INAU)=CW( INO) 

C(  I NAD)  =Cw(  I .NO) 

TFO(  IrlAJ)  =TF(  INAU) 

7*0( I NAD) =TF( I NAD) 

TCO( INAU) =TC( INAU) 

TCO( I NAD ) =TC ( I MAO) 

DXF ( I NO)  = 0 . 5 * DL  LTA  X ( INO) 

DXF ( I NAD) = DXF ( I MO) 

DXF( INAU) = DXF ( INO) 

LSTART(  I NO+1 ) =LSTART(  INO)+NLSLG(  I 'lO) 

I NO=I NO+1 

IF  ( Ii'lO.Lb.  ILINL)  GO  TO  2010 
RETURN 
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5.1.7  (Continued)  4 

30"9  COMTTNUL 

DO  3550  I .'10=1 , N LI  Jl'. 

IL=LSTART(  I MO) 

AAA=ACF(  IUO) 

DDD=PAR.-l(  I GO, 2) 

R!IOIL=3R6. 4*RII0(TLF(  I L)  , P(  IMG)  ) 

UFWIL=UFW(  AAA,  ODD,  A33(0(  INO)  ) , TLF ( I L)  , P(  INO)  ) 
FN.-i  ( I NO)  =ACF(  INO)  * 1<  HO  I L*DLLT\X(  INO) 

SPG  AF(  IM0)  = FN.1(  I GO)  *CPFN 
N = N LS l-.G ( I AO) 

. i = LSTART(  I MO) 

J J = i . + N-1 

C JJ  13  ML  I .AST  MODI, 

.7=.. 

C J 1.5  ‘T’ML  FIRST  \'00l 

IS=  I 

I L=IGG*  2- 1 

I?( 0( I L) . LT. 0.0)  GO  TO  3 LOO 
I L= I L+l 
I S = - 1 3 
.7=. 7.3 

C J 13  THL  L\ST  NOOL 

JJ  = .. 

.,  = .7 

3100  COl.'TI  '1MI. 

C 1 = A 33  ( 0(  IL)  ) *RI10TL*CPPN 
O UAw(  I GO)  * ASAvv  ( I MO) 

C I P=S  I G.  1 A*  L PS  ION*S li A PF*  ASArf  ( I 'JO ) 
r59  = UF.vIL*A5FW(  INO) 

R.IF=-;*RS(0(  IL,)  ) *Rl)OI  L 

C ‘Jb^I'JNIMG  CALCULATION  OP  LI\’L  TL.iPLHATUKL.3 

IF(0(il)  . LT.0.0)  GO  TO  3033 
CI"1=TC( IL+IS) 

CID2=TF( IL+I3) 

TC ( IL+IS) =TC ( I L) 

TC ( I L)  =CT  )1 
TF( IL+IS) =TF ( I L) 

TF( I L) -Cl  32 

3033  ;C'P=TF(  IL)  *2.0-TFO(  IL) 

TC P=7C( IL) *2. 0-TCO(  IL) 

YCO{ I L)=TC( IL) 

TFO ( I L ) =TF ( IL) 
rCO(IL+IS)=TC( IL+IS) 

TFO( I L+I3 ) =TF{ IL+I3) 

IF( N.GT. 1 )GO  TO  3200 
C THL  RE.  IS  ONLY  OMb  3bG. 

30  50  R)=CF/(  2. 0*DXF(  IMO)/ACF(  I NO ) +R»V.  F*  DC  LT/  ( ACF  ( ISO) 
+ * * 2*  RHOI L) ) 

R3=(Cw( ISO) )/( 2. 0*OXF( I MO) /ACM ( I MO) ) 

R 4 = R 3 


/. 

i t 
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5.1.7  (Continued) 


A 2=S  P.mAW  ( 1 NO)  /DlLT+R  3+39  +C  3 + R 4 
A9=SP.iAF(  INO)/DCLT+Cl  + ::l+39 
A ( 1 , 1 ) = A9 
A(  1,2)  =-’.39 
A ( 2 , 1 ) =-30 
A ( 2, 2)  =A2 

3(1)  ~SPMAF(  INO)*TLF(J)./DLLT+(  Rl+Cl)*TFP 
3 ( 2 ) =SP.lAW  ( IMG)  *TLW(  J ) /DELT+R3*TCP+R4*TC(  IL+IS) 

+ +C3*TA(  I NO)  +C I P*TST(  I NO)  -Cl P* ( TLW( J ) + 4 60.  ) **4 
CALL  3 1 i*l U LT ( A, 3, 2,  It.RROR) 

C9  = 3 ( 1) 

C 1 2=3 ( 2) 

TLF  ( J ) =3(  1 ) 

T Lv<  ( J ) = 3 ( 2) 

GO  TO  3500 
3200  CONTINUE 
C FIRST  LINE  SbG, 

R 1 =C  F/ ( 2 . 0 * OX  F ( I NO ) / AC  F ( INC) +R.nF*  OLLT/ ( ACF(  I l-JO) 

+ * * 2*  PtiOIL)  ) 

R3=l . 0/(2. 0*DXF(  I'lO)/ ( ACW(  IMG)  *Cw(  I NO)  ) ) 

R4  = R3 

A0=3P.1AF(  IUO)/DLLT+Rl+39+Cl 
A2=SPMA,\(ISO)/DCLT+:<3  + R4+39+C3 
A( 1 , 1 ) =A9 
A( 1,2) =-30 
A( 2 , 1 ) =-39 
A ( 2 , 2 ) = A 2 

3 ( l)=SP.i\F(  140)  * TLF ( J ) /DLLT+(  Pl+Cl)  *TFP 

3(2)  =SPTAiv(  I MO)  *TLW(  J ) /DELT+R3*TCP+R4*  T L..  ( J + IJ) 

+ +C 3 * T A ( lwO)+CIP*TST ( I NO) -Cl P*  ( TLn( J ) +4 60. ) * M 
CALL  SI.i" LT  ( \ , 3 , 2 , 1 LRPOR) 

TLF  ( 1 ) =.  L) 

TL.v  ( .7  ) = 3 ( 2 ) 

C 9 = 3 ( 1 ) 

C 1 2-3 ( 2) 

3300  I F ( N . to. 2 ) GO  TO  3400 
J=J+I3 

C CALCULATING  I MMlR  SFG. 

A ( 1, 1)=A9 
A ( 1 , 2 ) = -30 
A( 2,1) =-30 
A( 2, 2 )=A2 

!3(  J ) =S P.’.AF ( INC)  *TLP(  7 )/DLLT+( Rl+Cl ) *TLF(  J-IJ) 

3(  2 ) =SP.vlAvi  ( I NO)  *TLW(  J ) /DtLT+R  3*  TLN(  7 — I S ) +R4*TLw(  7 + 13) 
+ +C3*TA(  I NO)  +CI  P*T  3T(  INO)-CIP*  ( TL<J(  7J+460.  ) **4 
CALL  SI.-ilJLT(  A, 3, 2,  ILFROR) 

TLF  ( .7  ) = B ( 1 ) 

TLO( 7)=B( 2) 

N=N-1 

GO  TO  3300 
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5.1.7  (Continued) 


CALCULATING  LAST  NODE 
3400  CONTINUE 
7=J+I3 

R4  = 1.0/(2.0*DXF(  I NO ) / ( ACW  ( I NO ) *C.J  ( I NO)  ) ) 

M 1, 1)=A0 
A( 2, l)=-39 
A{ 1,2) =-30 
A( 2,  2 ) =A  2 

3(  1 ) = 3 P.lAF ( I NO)  *TLF(  J)/OLLT+(  Rl+Cl)  *TLF(7-IS) 

3(  2)*SP.‘wV.;(  I NO)  *TLW(  .7  ) /DLLT+  P 3 * T LW  ( 7-I3)+R4*TC(  IL+I3) 

+ +C3*TA(  I NO)  +C I P*  T3T(  I:mO) -Cl  P*  (TLw(  7)+460. ) **4 
CALL  S 1 .-i U LT  ( A , 3 , 2 , 1 L P POR ) 

TLF( J)=3( 1) 

TL.v  ( 7 ) = 3 ( 2 ) 

rLP(7)"(3Pl\F( I NO ) *TLF ( 7 ) /DLLT+ ( Rl+Cl) *TLF( J-IS) 

+ +3*  ( (3P..AW(  170)  *TLw  ( 7 ) / DLLT+R3*TLvj ( J-I5 ) +R4*  fC ( IL+IS) 

+ +C3*  TA(  I NO)  -Cl  P*  ( ( TLW ( J ) + 4 60 . ) * *4  ) +CI  P*T3T(  I NO)  )/(  A 2 
+ ) ) )/(A-3*3/A2) 

TLN(  7)  = (3P.lAn(  I NO)  *TLW  ( J ) / DLLT+R3*T  L/i  ( 7-IS)+R4*TC(  IL+IS) 

+ +C3*TA(  I MO)  +C I P*TST(  I.'10)-CIP*(  (TLW(  7) +4  60. ) **4  )+3*TLF(  J)  )/A2 
IF(  ?(IL)  .LT.0.0)  GO  *IG  "500 
C T<-  ( IL+IS  ) =TLF  ( .1 , 

TF(  I L)  =TLF  ( J ) 

C Ta/ ( I L+I.J)  =TLW( .:) 

Th  ( I L ) = T LW  ( J ) 

TP  ( I L+I.3)  =C9 
T'.v ( I L+1 3 ) =C  1 l 
GO  TO  3509 

3500  TP ( IL+IS) =TLF ( 7 ) 

C TF(  I L)=TLF ( ,.) 

T i(  I L+I3)  =TL»i(  7 ) 

C 7W  ( I L ) - T Lw  ( < 1 ) 

TF( I L ) = C 9 
T»v ( I lj)  =C  1 2 
3500  CONTI  >HJi> 

3550  CONTINUE 
RETURN 
E ID 


6.0  COMPONENT  SUBROUTINES 


The  components  modeled  vary  from  the  simple  restrictor  to  a hydraulic 
pump.  Each  model  is  broken  down  into  its  most  basic  equations  of  motion, 
flow,  and  heat  transfer.  The  sum  total  of  all  these  equations  can  be  very 
complex  but  individually  they  are  usually  simple. 

New  subroutines  can  be  added  without  difficulty  and,  if  the  computer 
system  can  tolerate  unsatisfied  external  references  that  are  not  called 
during  execution  then  component  subroutines  not  in  use,  can  be  omitted  from 
the  input  deck  or  file  when  not  required.  Figure  6.1-1  shows  the  basic 
subroutine  organization. 

In  working  with  the  program  it  is  necessary  to  get  a good  grasp  of  the 
fundamentals  involved  in  the  simulation,  even  the  most  carefully  checked 
routine  can  have  traps  built  in  which  are  not  always  found  until  uhe  output 
data  is  carefully  examined  by  someone  who  knows  what  it  should  look  like. 


i 
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FIGURE  6.1-1 

COMPONENT  SUBROUTINE  ORGANIZATION 
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6 . 1 SUBROUTINE  TCOMPA 

Subroutine  TCOMPA  which  is  called  by  THYTR,  reads  and  prints  all  component 
input  data,  sorts  out  connection  data  for  all  components,  and  calls  each 
individual  component  in  the  order  in  which  it  was  input. 

6.1.1  Math  Model 

Not  applicable. 

6.1.2  Assumptions 

Not  applicable. 

6.1.3  Computation  Methods 

Section  1000 

A component  Integer  card  is  read  and  its  data  is  printed.  Connection 
data  for  the  component  is  sorted  out  and  stored.  The  real  data  cards  for 
the  component  are  then  read  and  printed,  if  any  exists.  Next,  the  addresses 
of  the  component's  real  data,  temporary,  double  precision  and  integer  variables 
are  established.  Finally,  the  individual  component  subroutine  is  called 
passing  as  arguments  its  starting  address  in  the  real  data,  temporary, 
double  precision  and  integer  arrays.  This  process  is  repeated  until  all 
input  components  have  been  called. 

Section  2000 

This  section  consists  of  a DO  loop  that  ranges  from  1 to  the 
number  of  input  components.  Within  the  loop  a component  group  type  is 
Isolated  by  taking  its  type  number,  dividing  by  10  and  forcing  truncation 
(due  to  the  use  of  integers).  This  truncated  value  is  then  used  in  a computed 
GO  TO  statement  to  direct  control  to  a statement  or  section  that  calls 
the  specific  component.  If  there  is  more  than  one  component  of  that  group 
type,  specific  component  isolation  is  accomplished  by  subtracting  the  group 
component  type  number  from  the  individual  component  type  number  and  using  the 
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resulting  value  in  a computed  GO  TO  statement.  This  GO  TO  statement  then 
directs  control  to  a statement  that  calls  the  component.  ENTRY  COMPE 
isolates  and  calls  each  component  in  a simple  and  straightforward  manner 
aiding  in  the  running  of  the  overall  program  since  every  component  has  to 
be  called  each  time  step  in  the  thermal  transient  calculations  and  each 
iteration  in  the  steady  state  solution. 

6.1.4  Approximations 
No  applicable. 

6.1.5  Limitations 
No  applicable. 


i 


i 
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6.1.6  Variable  Names 


Variable  Description 

1 Counter 


J 


KK 


KTYPE 

LDATAC 

LI 

LA 

N 


Counter 

Dummy  Variable  for  LA 

Dummy  Variable  for  LTYPE(  ) 

Number  of  Element  Real  Data  Cards 

Data  value  1 

Data  value  1 

Counter 


NCI  Number  of  Last  Active  Connection 

NDATAC  LDATAC/ 1000 

NLIM  Number  of  Real  Data  Fields 


NN 


Dummy  Variable  Representing  Maximum  Number 
of  Component  Connections 


NTYPE 


Group  Type  Number 


NX  Data  Value  2 

N1  Dummy  Variable  Representing  Max  Number  of 

Real  Data  Fields  for  a Given  Component 


N2  Dummy  Variable  Representing  Max  Number  of 

Temporary  Variables  for  a Given  Component 

N3  Dummy  Variable  Representing  Max  Number  of 

Double  Precision  Variables  for  a Given 
Component 

NA  Dummy  Variable  Representing  Max  Number  of 

Integer  Variables  for  a Given  Component 


Units 
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n n n 


6.1.7  Subroutine  Listing  \ \ > / 

SU3R0UTIML  TCOi'i PA 
C ***  RLVISL-D  AUGUST  5,  1076  *** 

CO.i.lOU  /TRAIJS/P(  3 0U)  ,Q(  3 00)  ,C(  300)  ,TC(  3 00)  ,TW(  3 00)  ,TF(  300)  , 
+ ACF(  300)  , ACW  ( .300)  , DXF  ( 300)  , TTML , ObLT , PI , N LI  7L, DLL 
CO.i.iO.M  /LI.UT/..NLINL , 1 1NLL,  .-iiJLLG , .-iNNODL,  ON PLOT , nNLPTS , .IDS 
CO.-!.  109  /LIN L/ PA R. i ( 160,4)  , T LW  ( 2000)  , TLF ( 2000 ) , LSTART(  1 60 ) , 

+ :cr.SLG(  iso) 

CO.  ...DM  /CO.iVI*TYPL{90)  ,MC( 99) , KTL.«iP(99)  , 140,  ILU  J'R,  l.iLL 
COG. 109  /STlADY/PM (90)  ,O.N(90)  ,PLX(90)  ,PDLEG(90)  ,OL(9Q)  , 

+ "NA  , DS  , D1 , PU  P , PDOwN  , NNODL , N LhG,  NC S' N , TbRl  1 , 

+ llg::,  icon,  inv,  i.mx,  i*;z  ,nup{  90)  ,mJN(90)  ,nlli,.;(  90) , 

+ILtGAD( 90) , ILhG( 1000) 

CO...  .09  /CO. . ?9/D(  4 SO  0 ) , L(  1S00)  , Ll(  99,  ••  ) 
or  .losioj  oo(  1 400) , lt(  10, 1^0)  ,nd( iso, i 9) ,lc( l) 

L'UJIYALLNCL  ( L(  1)  , LT(  1,1)  ) , ( 0(  1 ) ,OD(  1)  ) , (C(  1)  , LC(  1)  ) 

DATA  L1 , L4,UX/1 , 1, 2/ 

I  VD=1 

I F ( I L NTi< ) 1900,2000,2000 
1 900  CCM?I\,,JL 

00  1001  1 = 1,  10 
DO  1002  .7  = 1 , ISO 
] 002  GD(  7,  I)=LY(  I,.J) 

1^9.1  CO  ■JTlN’Ji. 

1903  C07TI9UL  a 

.iC  1 = 0 

I'M  IS  kLAO  STATL.i^9T  INPUTS  Tilt.  FOLLOW  IMG  DATA 
I = I \'DI  VI  DUAL  CO.-.  POOL  NT  NUG-UR 

LTY  PL  =CO. i POrlLMT  TY  PL 

R L A D ( 5 , 1909)  T , LTY  PL  ( I ) , LDATAC , ( L(  L4-1+J)  ,.7  = 1 ,12) 

1009  FOR.. AT ( 1615) 

SRI  TL(  6 , SO  0 ) I,  I , LTY  PL  { I ) , LDATAC,  ( L(L4-l+,7)  ,.7='  , 12) 

NDA  rAC= LDATAC/ 1000 
LOATAC=LDATAC-N DAT AC* 1000 
ML  I ••  = LDATAC*  9 

C***  LDATAC  LOCALS  T.Jl,  NU  13LR  OF  tLL.iLwT  RL.AL  DATA  CARDS 
K i’YPl  =LTYPl(  I ) 

*jc(  r )=::o(  xtypl,  7) 

I F ( JC ( I) . LO. 9 ) GO  TO  7 
VK=L4 

UM=L4+NiC(  I )-l 
no  4 9 = '(’.<,  UN 
IF( L(  1)  ) 1,2,3 

1 L#  ( t ’ ) =— L ( !)  *2-1 
LC ( L ( .M  ) ) =0 

:jci=nci+i 
GO  ro  4 

2 L(  U ) =.sN  LI  ‘JL*  2-ND(  KTY ;-*L , 9 ) 

GO  TO  4 

3 L(  J ) = L ( N ) * 2 
LC(  L(  :i ) ) =0 
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6.1.7  (Continued) 


NCI»NCI+1 

4 continue: 

5 IF(  L(iMN)  .LT.  1NLI  NL*  2- 1 ) GO  TO  6 
NC ( I ) =NC ( I ) - 1 

NN=NN-1 
GO  TO  5 

6 CONTI  NUi 
INV=NCI 

IF(NCI.Nt'.NC(  I)  .ANO.UD(KTYPL,  10)  .NL.O)GO  TO  420 
IF  { NC  ( I ) . L T.  ND(  KTYPL,  8)  ) NC(  I ) =ND(  KTYPh,  8) 

7 Nl=ND( KTYPt,  1 ) 

N2=WD( KTYPL,  2) 

N 3 = N D ( KT  Y i?L , 3 ) 

.14=  <D(  KTYPt.,  4 ) 

IP  (iILIa.LO.O)  GO  TO  13 

RLAO(  5,9)  (D(  Ll  + N-1)  ,N  = l,NLI,i) 

9 FOR.'.AT(8L13.0) 

IF( I 4D.NL. I)  GO  TO  410 
NN  = I,1 

DO  10  KX=1 , LOA  TAC 

.>rrn.(6,sio)-<x,(o(  in+ii-I)  ,n=i,8) 

M N = :N+8 
10  CONTINUL 
13  IMX=0 

IF  ( NDATAC.NL,.  0)  GO  TO  20 
IF  { LDAfAC.GT.ND(K2YPt,  6)  ) Nl  = NLLl 
LL ( 1 , 1 ) = Ll 
LL  ( 1 , 2 ) = Ll+I\  1 
CO  TO  30 
20  CONTI NUL 

LE(I,  1 ) = LL ( N DA  l’AC  , 1 ) 

LL  ( I , 2 ) =Ll 
INX=1 

30  I F ( NX*N 3 . LL. 1 ) GO  TO  40 
Lb ( I , 3 ) = ( LL ( I , 2 ) +N2+3 ) /2 
Ll  = ( LL(I,  3)+N3)*2H 
GO  TO  50 

40  LL( I , 3)=Lb( I , 2)+N2 
L1=LL( I , 3/+N3 
50  Lb( 1 , 4 ) = L4 
L4=L4+N4 
LNTRY  COuPL 
2000  CONTI NUL 

'<  T Y PL  = LT Y Pl.  ( I N D ) 

NTYFf:  -KTY  P'c./ 1 0 
lU  = LL(  I 4D,  1 ) 

N 2=  LL ( IND, 2) 

N 3=  LL ( I <D,  3 ) 

N 4=  LL ( IND,  4 ) 

GO  TO  ( 210,220,230,  240,  250,260,270,  230,290,300) ,N7YPl 
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6.1.7  (Continued) 


C 360  GO  TO  400 
210  CONTI-IUL 

CALL  T3HAN11  ( D(  N 1 ) , D(  M 2 ) , DD{ M3 ) , L(  N 4 ) ) 

GO  TO  400 
220  CONTI UHL 

:\TYPL=t'TY  PL- 20 

GO  TO  (221,222) , KTYPl 

221  CALL  TVALV21  ( D(  N 1 ) , D(  N 2 ) , DD(  N 3 ) , L(  fJ 4 ) ) 

GO  TO  400 

222  CALL  TVALV22  ( D(  M 1 ) , D(  N 2 ) , DD(  N 3 ) , L( N 1 ) ) 

GO  TO  400 

230  CONTIOUL 
’<TYPL=KTY  PI.-  30 
GO  PO  ( 231)  , KTYPl 

231  CALL  TCVAL31  ( 0(  Ml  ) , 0(  M 2 ) , DD(  M 3 ) , L(  i!  4 ) ) 

GO  TO  400 

240  CONTI  JUL 

CALL  TP  LOT  4 l ( 0(  ri  1 ) , D(  .1 2 ) , DD(  " 3 ) , L(  N 4 ) ) 

GO  TO  400 

250  CONTINUl. 

KTYPL  = '<TYPL-5  0 

GO  TO  ( 251) , KTYPl 

251  CALL  TPU.1P51  ( D(  ti  1 ) , D(  U 2 ) , DO(  N 3 ) ,L{  N 4 ) ) 

GO  TO  400 

260  CONTI NUL 

KTY  PL,= KTYPL- 60 

GO  TO  ( 261,262,400,  100, 400,  400,400, 400,260),  '<TY?L 
241  CALL  TKSVK61  ( D(  Ml ) , D(  M2  ) , DD(  M3  ) , L(  N4  ) ) 

GO  30  400 

252  CALL  TBSVK62  ( D(  N 1 ) , 0(  .1 2 ) , OD(  N 3 ) , L(  U 4 ) ) 

GO  TO  400 

240  CALL  T11LX69  ( D(  oil ) , D(  M2  ) , OD(  N3  ) , L(  N4  ) ) 

GO  TO  400 

270  KTY  PL= KTYPl -70 

GO  TO  ( 271 , 400, 400) , KTYPL 

271  CALL  T AC  UN  71  ( 0 ( N 1 ) , D ( N 2 ) , 0 D ( N 3 ) , L ( \’  4 ) ) 

GO  TO  400 

230  CONTI  1UL 
XTYPL= KTY Pl-80 

GO  TO  ( 28 l ) , KTYPL 

231  CALL  TPILT31  ( 0 ( 1 3 1 ) , 0 ( 4 2 ) , OD  ( .4  3 ) , L ( M 4 ) ) 

GO  TO  400 

200  COUTINML 

KTYPL  = KTYPl.- 0 0 
GO  TO  (291), KTYPL 

201  CALL  TTlJTOI  ( D(  N 1 ) , !)(  N 2 ) , OU(  J 3 ) , L(  N 4 ) ) 

GO  TO  100 
300  CONTI  ^'JL 

KTYPt.  = KTYPL-l  oo 
GO  TO  ( 301,302) , KTYPL 
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6.1.7  (Continued) 


301  CALL  TACT1Q1  ( D(N1 ) . D( M2) , DD( N3) , L(N4) ) 
GO  TO  400 

302  CALL  TACT102  f 0(  Ni ) , D(  N2)  , DD( N 3 ) , L(  N 4 ) ) 
400  CONTINUE 

IF ( INLL.NE. O.OR. IMD.GK.NLL)  RETURN 
IND=IND+1 

IF(Ib'NTR)  1003,2000,2000 
410  WRITE  (6,130) 


6.11  SUBROUTINE  TBRANll 


TBRAN11  simulates  a frictionless  branch  with  two,  three,  or  four 
connecting  lines.  As  sketched  in  Figure  6.11-1  with  two  lines,  TBRANll 
represents  a "junction",  with  three  lines  it  represents  a "Y" , and  with 
four  lines,  it  represents  a "cross".  This  subroutine  calculates  the 
temperature  of  the  fluid  within  the  branch  and  the  temperature  of  the 
branch  wall. 


Junction 

_J 

Y-Branch 


Goss  Branch 


FIGURE  6.11-1 
BRANCH  CONFIGURATIONS 
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6.11.1  Mach  Model 


The  thermal  math  model  ror  tho  branch  includes  heat  transfer  to  and 
from  either  two,  three,  or  four  line  segments.  At  least  one  is  an  upstream 
(inlet)  line  while  at  least  one  is  a downstream  (outlet)  line.  To 
familiarize  the  reader  with  the  branch  subroutine,  one  of  the  most  complex 
branches  "the  cross"  (with  one  upstream  line  segment  and  three  downstream 
line  segments)  will  be  discussed  at  this  time.  For  this  branch  ten  nodes 
are  considered:  five  fluid  nodes  and  five  wall  nodes.  The  nodal  representation 

is  shown  in  Figure  6.11-2. 


FIGURE  6.11-2 

"CROSS"  BRANCH  AND  LINE  SEGMENT  NODE  REPRESENTATION 

GP77-006S-7 
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The  temperatures  of  the  upstream  line  segment  wall  and  fluid  nodes  are  TW(L1) 
and  TF(L1),  the  temperatures  of  the  branch  wall  and  fluid  nodes  are  DT(TBW) 
and  DT(TBF) , and  the  temperatures  of  the  downstream  line  segment  wall  and 
fluid  nodes  are  TW(L2)  and  TF(L2) , TW(L3)  and  TF(L3) , and  TW (LA)  and  TF(LA) . 

(The  branch  consists  of  two  nodes,  regardless  of  the  number  of  line  connections). 
Two  heat  transfer  equations  are  written  to  solve  for  DT(TBF)  and  I)T(TBW) , using 
the  branch  and  line  segment  material  properties  and  dimensions,  the  atmosphere 
and  structure  temperatures  external  to  the  branch,  TW(L1)  through  TW(LA)  and 
TF(L1)  through  TF(L4).  One  equation  is  for  heat  transferred  to  and  from  the 
branch  fluid  node.  The  other  equation  is  for  heat  transferred  to  and  from  the 
branch  wall  node. 

The  first  equation  represents  four  modes  of  heat  transfer  wit’  the  branch 
fluid  node: 

1.  conduction  with  the  upstream  line  segment  fluid  node 

Rl(Ll)*(TF(Li) -DT(TBF) ) 

where  R1(L1)  is  the  conduction  coefficient  between  the  fluids  and  is  equal 
to  CF/ (DXF(Ll)  /ACF(L1)+DXFB/ACFB+RMT(L1  )*DELT/ (ACFB**2*RH01L)  ) 

2.  convection  with  the  branch  node 

B1*(DT(T3W)-DT(TBF) ) 

where  B1  is  the  convection  coefficient  and  is  equal  to  UFW1 L*D( ASFW) 

3.  heat  transfer  due  to  mass  transfer  into  the  branch  from  upstream  of  the 
branch 

flCp*(TF(Ll)-DT(TBF)) 

where  MCp  is  the  flow  rate  and  is  equal  to  Q(L1)*RI10IL*CPFN 
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These  heat  transfer  terms  are  combined  to  produce  the  equation 


for  heat  balance  for  the  branch  fluid. 

MCp (DT (TBF) -DT (TBF ) ) = R1 (Ll)* (TF(Ll)-DT(TBF) ) 

+ Bl*  (DT  (TBW)  -DT  (TBF)  ) (1) 

+ ftCp* (TF (LI) -DT (TBF) ) 

where  MCp  is  equal  to  FMASS*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer 

relative  to  the  branch  wall  node: 

1.  Conduction  to  and  from  the  upstream  and  downstream  line 

segment  walls 

R(Ll*(TW.(LJ)~DTO'BW)) 

where  R ( 1,1)  is  the  conduction  coefficient  and  is 
equal  to  1 .0/(DXF(LI)/(ACW(LI)*C(LI))+ 

DXW/(ACBW*CW))  and  I is  the  line  number 
2a.  convection  to  and  from  the  branch  fluid 
B1*(DT(TBF)-DT(TBW)) 
where  81  was  defined  previously 
2b.  convection  to  and  from  the  external  atmosphere 

B2*  (1)  (TA)  -DT  (TBW)  ) 

where  B2  is  the  convection  coefficient  and  is  equal 
to  D(UAW)*D(ASAW) . 

3.  radiation  exchange  with  the  surrounding  structure 

Cl  P* (D (TST) - (DT (TBW) +4 60 . ) k ) 
where  C1P  is  the  radiation  coefficient  and  is  equal 
to  SIGMA*  i-PSION*SllAPF*l)(ASAW)  . 

These  equations  combine  to  produce  the  equation  for  heat  balance 
for  the  branch  wall  node: 
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HCp  (DT(TBW)-DT(TBW)  ) 
DELT  ULU 


£ R (Li)  * (TW (Li)  -DT  (TBW)  ) 
J=1 


+ B1 (DT (TBF) -DT (TBW) ) 
B2(D(TA)-DT(TBW)  ) 

+ C1P* (D (TST) - (DT (TBW) +4 60 . ) 4 ) 


where  MCp  is  equal  to  D(BMASS)*CPWN 


(2) 


A thermal  model  of  the  above  heat  transfer  terms  is  shown  in  Figure 
•3.  Equations  (1)  and  (2)  are  combined  to  solve  for  DT(TBW)  and  DT(TBF). 


EXIT  FLUID 
TF(L2)  = DT(TBF) 

T EXIT 

I FLUID 

| ^TF(L3)  = 

I / DT(TBF) 


FIGURE  6.11-3 
THERMAL  MODEL 


BN  = CONVECTION 
MCp  = STORAGE 
MCp  = FLOW 
RN  = CONDUCTION 
CID  - RADIATION 
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6.11.2  Assumptions 


The  following  assumptions  are  made  to  produce  the  equations  discussed 
in  the  previous  section. 

1.  The  temperature  of  the  fluid  leaving  the  branch  is  equal  to  the 
branch  fluid  node  temperature,  DT(TBF) 

2.  The  branch  wall  and  fluid  are  each  represented  by  one  node  only, 
the  entire  node  ls  al  the  same  temperature. 

3.  The  temperatures  of  the  atmosphere  and  structure  surrounding 
the  branch  are  constant. 

4.  The  emissivity  of  the  wall  material  is  constant,  .3  for  steel 

5.  The  interface  conductance  between  the  branch  walls  and  the  line 
walls  is  infinite  . 

6.  The  math  model  does  not  incorporate  any  of  the  losses  which  nor- 
mally occur  at  junctions  which  have  changes  in  diameter,  flow 
direction,  or  flow  division. 

7.  Complete  fluid  mixing  occurs  in  the  fluid  volume. 

6.11.3  Computational  Methods 

SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and 
raised  to  the  fourth  power,  and  the  default  values  are  assigned. 

SECTION  2000 

No  thermal  or  hydraulic  inputs  or  calculation  accomplished  here. 
SECTION  3000 

Propel ty  values  are  assigned.  Dimensions  and  coefficients  are 
calculated.  The  fluw  direction  is  determined.  (The  program  is  set  up 
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with  the  flow  entering  connection  line  one  (Ll)  and  leaving  through 
connections  tow,  three  and  four,  (L2) , (L3)  and  (LA).  During  the 
calculation  the  flow  direction  is  checked.  If  the  flow  has  reversed 
flow  direction,  the  program  reassigns  connection  numbers  so  that  the 
flow  still  enters  connection  line  one).  Some  coefficients  are  then 
recalculated  if  the  flow  is  reassigned.  A 2x2  matrix  is  loaded 
and  the  mathematical  equations  are  solved  for  DT(TRF)  and  DT(TBW) 
and  stored  in  the  B computational  array,  •'’he  calculated  values  are 
assigned  to  their  proper  storage  locations  md  the  boundary  conditions 
assigned  to  special  arrays  (TC  and  TF)  in  /TRANS/. 

6. 11. A Approximations 

1.  DELTAX  is  the  average  value  of  all  possible  paths  through  the 
branch. 

6.11.5  Limitations 

The  limitations  of  this  subroutine  are  due  to  the  pressure  drop 
errors.  Additional  losses  can  be  simulated  by  adding  a pseudo  90 
degree  elbow  or  bend  to  the  appropriate  line. 

6.11.6  Variable  Names 


Variable 
A(  ) 

AAA 

ACBW 

ACFB 

D(ASAW) 

D(ASFW) 

B(  ) 


Description 
Computational  array 
Dummy  variable 

Cross  sectional  area  of  the  branch  wall 
Cross  sectional  area  of  the  branch  fluid 
External  surface  area  of  the  branch  wall 
Internal  surface  area  of  the  branch  wall 
Computational  array 


Dimension 


IN 

IN 

IN 

IN 


2 

2 

2 

2 
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Variable 

Description 

Dimension 

D(BMASS) 

Branch  Mass 

LB 

m 

C1P 

Radiation  coefficient 

WATTS/ V' 

CJ 

Mechanical  Equivalent  of  Heat 

FT  -L  B]n  / WATT  S - S EC 

CPWN 

Specific  heat  of  the  branch  material 

WATTS-SEC/LB  -°F 
m 

CW 

Thermal  conductivity  of  the  branch 
material 

WATTS /IN-0 F 

DDD 

Dummy  variable 

— 

D(DELTAX) 

Average  distance  fluid  travels  through 
branch 

IN 

DXW 

Distance  from  branch  node  to  interface 

IN. 

KPS ION 

Emissivity  factor  for  the  branch  wall 

— 

FMASS 

Fluid  mass  in  branch 

LB 

m 

I , IERROR 

Dummy  variables 

— 

D(ITC) 

Initial  wall  temperature 

°F 

D(ITF) 

Initial  fluid  temperature 

°F 

LI  ,L2 

Leg  connection  addresses 

— 

R(  ),R1(  ) 

Computational  array 

— 

RHOIL 

Fluid  density 

LB  /IN3 
m 

RMT(  ) 

Mass  flow  rate  of  fluid  array 

LB  /SEC 
m 

SHAPF 

Shape  factor  (wall  to  surrounding  structure) 

— 

SID 

Dummy  variable 

— 

SIGMA 

Stifan-Boltzmann  constant  for  radiation 

9 / 

WATTS / IN  -°R 

T ( ) 

Computational  array 

— 

D(TA) 

Temperature  of  the  surrounding  atmosphere 

°F 

DT (TBF) 

Fluid  temperature 

°F 

DT(TBW) 

Wail  temperature 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 
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Variable 

Description 

Dimension 

D(UAW) 

Heat  transfer  coefficient  (surrounding 
atmosphere  to  walls) 

watts/in2-°f 

UFWIL 

Heat  transfer  coefficient  (fluid  to  walls) 

watts/in2-°f 

D (VOLUME) 

Volume  of  fluid  inside  branch 

IN3 
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6.11.7  Subroutine  Listing 


jt-  TonMll  (o,rrr,oo,L) 

***  xlvisi.d  august  9,  1175  *** 

oi  re::  :,( 1 ) , yri  3 ) , ud( l ) , l( 1 ) 

CO-I..O  i /T  ■CA’3S/P(  300)  ,0(  300)  ,C(  300)  ,TC(  300)  f T.v  ( 3 00 ) f T<  ( 300)  , 
+ A C F ( 3 00)  ,ACw(  3 00)  , OXF ( 300)  , TI. ■ !•. , OLLT , ‘M  ,-JLI  it.,..!  L 
CC. i.iCO  /CD.'.  P/LTYr>t  (00)  , *C(99),KTL.*.P(99)  ,IfI'),Ii..iT,.,  r A- L 
CO  ,.,D\  /*?>■  \:>Y/PO(  90)  , ?.:(  90)  , ?LX(90)  , POLlG(OO)  , ^L(  0 o ) , OA,  Jw 
+ P’JP,  POO.A'i,  IN DDL,  A’LLD,  !C  P •! , Tivr:.-t , Li., GO  , ICO  J , 1 XV,  I IX  , I .2, 

+ XJ->(  90)  , H9w  i(  00)  , Ji.Li..-. ( °0)  , ILLCAi9(  90)  , lLtM(  1000) 

CO  „/)  l /FI, MI  V-M,o!:LofCF,CPF'J,FTL.,lM»P0P(  13,3) 

I'.’TLCLb  J.Aw,  AJA.v,  MA-  v,OLLT\X,VOL;j.,L,T,9..,V  !/r  , 

+ ?:;?,?  a,  o i.A  >s,\ci 

01  .1  NIOM  C .‘I1  ( 4 ) , !>  1 ( 4 ) , A ( 2 , 2 ) , 3 ( 2 ) , !<  ( 1 ) , T ( 4 ) 

9 \,j'nv  \>'  -’i  \m.,l  j 

•OApA  ,.r’Yt>t./j /,7  :Aw3/2/, /OLD  1L/3/,  OLLTAX/4/,  AJMv/5/,  \SF../ V 

+ ,vv./7/,  !v;t/3/,  r\/o/,i  tf/io/,  itc/i  1/ 

9Y  a,: CAY  VAX!  AMO  S 
ova  r )p/i/,  :• 'w/?/ 

' >A  l'A  SIM  31  91-11/ , S.l  APF/ .93/ , L PC  J'v!/ , 3/  , CJ/o  # 9 5/ 


L 

C 

C 


TB‘(  II*  T 
V'-l.  ) ,1 
01.  Li”  AX 
A'jF,, 
ASA,. 

MA./ 

3..  ASM 
~*L 


) 1)P9,  >000, 3000 
= :■  Yt  x;,  v7OL>”  ,1.  T -JcIOL  DR.AMC  ! 

= AV'i,  )F  ALL  POC3I  )Lt,  RCUTr  F Y i!!0<JC.i  M'AM 
= SU:{F.ACr.  A A I A FLU  1 .4  TO  wALL  MXA.JC,’ 

= 3 UH  FAC  iv  AM  .A  A L L T9  A..n-lL\/ 

= .!lAT  ICAIMFcM  CDi.pFICI>/i?  v ALL  TO  A.MIl. 


.?yo, 

•or 


= .:  \S,b 
= i ATL 

= .i • J i > 


OF  MAmCS  . -A L L ( LOS.  ) 
I XL  FYM.  CP  WALL 
'<  OF  LI  ML  CO  JOLCTIO  lo 


1 100  00,'VI  AJi 


jci=mc(  iwD) 

"0  1)01  1 = 1,  iC I 

•:=L(I) 

I'F  ( ' ■ ) = 0 ( I Tr  ) 

1091  rc(  :)=d(itc) 
j;t(  r 3 f ) = r*  ( n n 
OT(  f 3.0  = j(  I TO) 

l 103  )(  ?.-;t)  = ( o(T->:)  + i •'>:). ) **4 

I r ( 0 ( -JAW ) , K'A,  0.0)  w(  -J A.i)  = . 0069 

R l FTv.j 

2000  CO.-iVI.iUL 

:jltup\ 


3000  L1=L( 1 ) 

1C  1=  <C  ( I MO) 

TTYPl  =r>(  ,iT  ( Ft  ) + . O01 
CP'.N'=?t’Op(  KTYPl  , 1 ) 

C»/=Pl:OP(  KTYPL,  3) 

PliOIL=3  30. 4*  RIlOf  ??(  LI  ) , p(  Ll ) ) 
ACF3=T9(  VOLU.-.i. ) / 0(  "ILL  FAX ) 

AC  1,i  = 0^0  :.\J>b)/(  K iOIL*D(  OKLT.AX)  ) 
C I 9=;;  I M.  i A * j i i A PF  * L PC  I JA  * 0 ( A C AX ) 


/ 
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6.11.7  (Continued) 


DX./  = 0(  DLLTAX)/2. 0 

OXF3=OXw 

L2=L( 2) 

SI  0=0(11) 

AAA=0(  70L‘J;-ii-  )/(  D(  OL'LTAX ) ) 

DOD=F?PP(AAA*4./PI) 

I F ( D ( L 1 ) . LT. n( L2 ) ) 0(L1)=0(L2) 

UF»«I  L=MFw(  AAA, DOO, A3S( 0(  LI ) ) , ( TF ( L(  1 ) ) 

++T?(L(  2)  ) )/2.0,  ( P(L(1)  ) + P(L(  2)  ) )/2.0) 

C 

Tb i P 1 =TC ( L 1 ) 

"M  L l ) =E  I 

F iAA:j=n(  VOL-l'ih  ) *P,IOIL 
*U»UF  >IL*C(  ASFv,') 

3?=D(  (JAW ) *C(  A:?A.i) 

TO  S3  :jci=:jc(  I 40) 

00  3009  1 = 1 , ’!CI 
00  3000  .7  = 1 ,001 
A(T, 7 ) = 0 . 0 
3000  3( I)— 0.0 

DO  3500  1=1, NCI 
:>’=!<(  I ) 

Pi!OI  L=3  3 n , 4 * RdO(  PF(  N ) , ?(H)  ) 

K.iV(I)»AS3(n(ri)  ) * Pll 01 L 

IF(0(.4)  .LL.O.O)  k.iT(  I ) = 0 - 0 

P 1 ( I ) =CF/  ( DXF  ( :i ) /ACF  ( •! ) OXF3/ACF3+RfiT ( I ) * DI.LT/  ( ACF'3*  * 2 * PHOIL) ) 
IF(°(0) . LL. 0. 0 ) P 1 ( I)=0.0 

M I )=!./(  D<F(.l)/(  AC.V(  T)*C(X)  ) +0X0/  ( AC3n*CW)  ) 

3150  A ( 1 , 1 ) =A  ( 1 , 1 ) + R,.T(  I ) *CPFM+P  1(1) 

3(  l)»3(l)+(Rr.T(I)*CPFrt  + Rl(I)  )*TF(«4) 

A( 2, 2) =A( 2, 2 ) +3( I ) 

?(  2 ) = 3(  2 ) + .3 ( I ) * Pi/(  •>' ) 

3 500  CO  if  1.401. 

M 1,  1)=A(1,1)+*.  i\So*CPF;l/Q£,LY+31 
A ( 2 , 2 ) = A ( 2 , 2 ) + 0 ( 3 5AoS)*CP..  4/DLLT+31+32 
2 ( 1 ) = 3 ( 1 ) +F/I  AS~j*CPf  0*  DT(  73F ) /DLL  T 
3 ( 2 ) = 3 ( 2 ) + 0(  3. 1 333)  *CP<«  J*DT(  1’  iw) /DLLT+  7 2* 

+ 0(  PA)  +CT  P*D(  TbT) -Cl  P*  ( DT(  TO,.’)  +4  50.  ) **4 
M 1, 2) =-31 
A( 3 , 1 ) =-3l 

Cf  LL  SI  :ULT(  A, <3, 2,  IlRROP) 

DO  3600  1 = 1,00 
'■•'  = L(  I ) 

P(  I )=TP(  .4) 

TF ( 0 ) =3 ( 1 ) 

JFO(O)  .GL.0.0)  ( N ) =T ( I ) 

'PC  ( 0 ) =3  ( 2 ) 

3600  COHTI.4UL 

OT  ( T3  F ) = 3 ( 1) 

OT( P ) =3( 2 ) 

PL TOP 3 
Lei  l 
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6.21  SUBROUTINE  TVAL\  ' 

TVALV21  simulates  a simple  two-way  valve  with  a valve  position  vs 
time  input.  A typical  valve  is  sketched  in  Figure  6.21-1.  This  subroutine 
calculates  the  valve  wall,  piston,  and  fluid  temperatures. 


GP75  0099  19 

FIGURE  8.21-1 

TYPE  NO.  21  TWO-WAY  VALVE 
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6.21.1  MATH  MODEL 


The  thermal  math  model  Cor  the  two-way  valve  includes  heat  transfer  to 
and  from  two  connecting  line  segments,  one  upstream  and  one  downstream.  Seven 
nodes  are  considered:  three  fluid  nodes,  three  wall  nodes,  and  one  piston  node 
(as  shown  in  Figure  6.21-2).  The  temperatures  of  the  upstream  line  segment 
wall  and  fluid  nodes  are  TW(L1)  and  TF(L1). 


Downstream 


FIGURE  6.21-2 

VALVE  AND  LINE  SEGMENT  NODE  REPRESENTATION 

OP77-0085-9 
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The  temperatures  of  the  valve  wall  and  fluid  nodes  are  DT(TVW)  and  DT(TVF). 

The  temperatures  of  the  downstream  segment  line  wall  and  fluid  nodes  are 
TW(L2)  and  TF(L2),  and  the  temperature  of  the  piston  is  denoted  by  DT(TVP). 

Three  heat  balance  equations  are  written  to  solve  for  DT(TVF) , DT(TVP),  and  DT(TVP), 

using  the  valve  and  line  segment  materia)  properties  and  dimensions,  the  atmosphere 

and  structure  temperatures  external  to  the  valve,  and  TW(L1),  TW(L2),  and 

TF(L1)  (Note:  TF(L2)=DT(TVF) , see  assumptions).  One  equation  is  a heat 

balance  for  the  valve  fluid  node.  The  second  equation  is  a heat  balance 

for  the  valve  wall  node.  The  third  equation  is  a heat  balance  for  the 

valve  piston. 

The  first  equation  represents  four  modes  of  heat  transfer  relative 
to  the  valve  fluid  node. 

1.  Conduction  to  or  from  the  upstream  line  segment  fluid  node 

R3* (TF (Ll)-DT (TVF) ) 

where  R3  is  the  conduction  coefficient  and  is  equal  to  CF/  (DXV/D (ACVF)+ 
DXF(Ll) /ACF(L1)+RMFL1*DELT/ (D(ACVF)**2*RH0I1.)  ) , and  RMFL1  is  equal  to 
Q(L1)*RH0IL. 


2.  a.  convection  to  or  from  the  valve  walls 

Bl* (DT (TVW)-DT(TVF) ) 

where  Bl  is  the  convection  coefficient  and  is  equal  to  UFWIL*D(ASFV) . 
b.  convection  to  or  from  the  piston 

B2*(D’r(lVt  / -T'T(TVF)  ) 
where  B2  is  equal  to  USWtl  *D(ASFP) 

3.  Heat  transfer  due  to  mass  transfer  into  the  valve  node  from  the  upstream 
line  fluid  segment. 

ftCp*(TF(LL)-  DT(TVF)) 

where  liCp  is  the  flow  rate,  coefficient,  and  is  equal  to  Q(L1)*RH0IL*CPFN 

4.  Heat  addition  due  to  a pressure  d.'vp  across  the  valve 

tiCp*DCAPT : 

where  DCAPT1  was  described  in  the  technical  summary  and  is  equal  to 
(1 . 0/RHOIL) * (P (LI) -P {12)) f (C J*CP  FN) 

The  heat  transfer  modes  are  combined  to  produce  an  equation  for  the  heat 

balance  for  the  valve  fluid  node: 

MCp  (I T (TVF) -DT (TVF)  ) = =R3* (TF (LI) -DT (TVF) ) 

DELT 

+B1* (DT (TVW)-DT (TVF) ) 

+B2* (DT(TVP)-DT(TVF) 

+MCp* (TF (LI) -DT (TVF) ) 

+MCp*DCAPTl 


where  MCp  is  equal  to  FMASS*CPEN 

The  second  equation  represents  three  modes  of  heat  transfer 
relative  to  the  valve  wall  node. 

1.  Conduction  to  or  from  the  upstream  and  downstream  line  segment  wall 


nodes 
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RI* (TW(LI)-DT(TVW) ) 


v;here  RI=1.0/(DXF(LI)/(ACW(LI)*C(LI))+DXV/(ACVW*CV)) , and  1=1  for  the 
upstream  line  segment  and  2 for  downstream  line  segment 

2.  a.  convection  to  or  from  the  fluid  in  the  valve 

Bl* (DT(TVF)-DT(TVW)) 
where  Bl  was  defined  previously 
b.  convection  to  or  from  the  external  atmosphere 
B3*(D (TA) -D(TVW) ) 

where  B3  is  the  convection  coefficient,  and  is  equal  to  D(UAV)*D(ASAV) 

3.  radiation  exchange  with  the  surtounding  structure 

CIP* (D(TST)-(DT(TVW)+460. )**4 ) 

where  CIP  is  the  radiation  coefficient,  and  is  equal  to  SIGMA*EPSION* 
SHARF*D(ASAV) 

These  heat  transfer  modes  are  combined  to  produce  an  equation  for  the  heat 
balance  for  the  valve  wall  node: 

MCp*(DT(TVW)-DT(TVW)  ) = Rl* (TW(L1) -DT (TVW) ) (2) 

n 17T  T 

+R2* (TW (L2) -DT (TVW) ) 

+B1* (DT (TVF) -DT (TVW) ) 

+B3* (D (TA) -DT (TVW) ) 

+CIP* (D (TST) 

-CIP* ((DT (TVW)  t-460.  )**4) 


where  MCp  is  equal  to  D(VMASS)*CPVW 

The  third  equation  represents  one  mode  of  heat  transfer  relative 
to  the  valve  piston  node. 

1.  convection  to  or  from  the  valve  fluid  node 

B2*(DT(TVF)-DT(TVP) ) 
where  B2  was  defined  previously 
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The  third  equation  for  the  heat  balance  for  the  piston  node  is: 

MC£*(DT(TVP)-DT(TVP)  A =•■  B2*(DT(r;F)-DT(TVP))j  (") 

DELT  ULD 

where  MCp  is  equal  to  D(PMASS)*CPPN 

A thermal  model  of  the  above  heat  transfer  terms  for  the  two- 
way  valve  is  shown  in  Figure  6.21-3.  Equations  (1)  thru  (3)  are  solved  for 
the  appropriated  temperatures. 


(MpCp) 


DT(TPN) 


B2 


TW(L1) 


DT  (TV) 


*TW(L2) 

B = CONVECTION 
t%Cp  = STORAGE 
,RN  = CONDUCTION 
MCp  = FLOW 

. CIP  = RADIATION 
MCP*DCAPT  = GENERATION 


FIGURE  6.21-3 
THERMAL  MODEL 
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In  the  hydraulic  model  the  valve  is  considered  to  be  a simple 
orifice. 

The  basic  equation  for  flow  through  an  orifice  is  used  to  define  flow  through 
the  two-way  valve. 

1/2 

Q=AREA*CD* (2* (P1-P2) /RHO) 

2 

where  AREA=area  of  valve  orifice  (IN  ) 

Cd-discliarge  coefficient 

2 4 

RHO-fluid  density  LB-SEC  /IN 
Q=flow  (CIS) 

Pl=inlet  pressure  (PSI) 

P2=outlet  pressure  (PSI) 


The  pressure  drop  due  to  ..  ‘ •'iwpn  bv  Equation  (5) 

PUP=PUP-QA*Q1* (COEF*RHO(TF (L (1) ) , PUP) 

where 

PUP  = upstream  pressure  (PSI) 

QA  = magnitude  of  flow  (CIS) 

Q1  = flow  rate  (CIS) 

C0E5  = constant  coefficient 

RH0(  ) = fluid  density  (LB-SEC  /1N  ') 

The  constant  coefficient  is  made  up  of  the  valve  opening  area  and  dis- 
charge coefficient.  When  the  valve  is  closed  COEF  equals  zero. 

6.21.2  ASSUMPTIONS 

1.  The  temperature  of  the  fluid  leaving  the  valve  is  equal  to  the  valve 
fluid  node  temperature,  DT(TVF) . 

2.  Thu  pressure  drop  across  the  valve  raises  the  temperature  of  the 
fluid  in  the  valve. 

3.  The  ttmperatures  of  the  atmosphere  and  structure  surrounding  the 
valve  remain  constant. 

4.  The  emissivity  of  the  wall  material  is  a constant,  .3  for  steel. 

5.  The  interface  conductance  between  the  valve  and  line  walls  is  infinite. 

6.  The  hydraulic  math  model  assumes  a square  law  characteristic  and  a 
constant  discharge  coefficient  for  the  complete  flow  range,  which  in 
practice  is  not  correct.  At  very  low  flows  the  pressure  drop  tends 
toward  a linear  characteristic,  and  the  discharge  coefficient  varies. 

7.  The  pressure  drop  due  to  the  fittings  is  assumed  to  be  much  smaller 
than  the  valve  pressure  drop  and  they  are  ignored  in  the  computation. 

8.  Complete  mixing  of  the  fluids  is  assumed. 
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6.21.3  COMPUTATIONAL  METHODS 


Section  1000  - The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised 
to  the  fourth  power,  and  the  default  values  are  assigned. 

Section  2000  - A call  to  INTERP  is  made  to  derive  the  valve  opening  from  the 
input  data  which  includes  a table  of  valve  position  versus  time.  A first 
order  interpolation  is  used  in  this  derivation,  second  or  higher  order  inter- 
polations will  cause  unintended  valve  motion. 

Once  the  valve  opening  is  established,  the  valve  area  is  calculated,  and 
the  valve  pressure  drop  is  determined  using  Equation  (5). 

Section  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calculated. 
The  flow  direction  is  determined.  (The  program  is  set  up  with  the  flow 
entering  connection  line  one  (LI)  and  leaving  through  connection  line  two 
(L2) . During  the  calculation,  the  flow  direction  is  checked.  If  the  flow 
has  reversed  flow  direction,  the  program  reassigns  connection  numbers  so 
that  the  flow  still  enters  connection  line  one).  Some  coefficients  are  then 
recalculated  if  the  flow  is  reassigned.  A 3 x 3 matrix  is  loaded  and  the 
mathematical  equations  are  solved  for  DT(TVF),  DT(TVW)  and  DT(TVP)  and  stored 
in  the  B computational  array.  The  calculated  values  are  assigned  to  their 
proper  storage  locations  and  boundary  conditions  assigned  to  special  arrays 
(TF  and  TC)  in  COMMON/TRANS/  and  distributed  throughout  the  entire  program. 
6.21.4  APPROXIMATIONS 

1.  The  shape  factor  is  0.96  (described  in  Che  Technical  Summary). 

2.  Distances  from  nodes  to  interfaces  are  approximated. 

3.  The  coefficient  of  heat  transfer  between  the  wall  and  external  atmos- 


phere is  approximated. 


6.21.5  LIMITATIONS  - The  computation  is  limited  to  a linear  valve  area  versus 
position  relationship.  This  apparent  limitation  can  be  overcome  by  inputting 
a nonlinear  valve  position  versus  time  relationship  which  can  produce  any 
desired  area  versus  time. 

The  constant  discharge  coefficient  is  also  a limitation  but  since  the 
changes  in  discharge  coefficients  depend  on  the  particular  valve  configuration; 
this  limitation  is  not  easily  overcome. 

If  the  valve  slot  width  and  discharge  coefficient  are  input  as  one,  then 
the  valve  position  table  b^omes  a table  of  the  product  of  valve  area  times 
the  discharge  coefficient  versus  time.  The  combined  effects  of  area  and  dis- 
charge coefficient  can  then  be  inputted. 


6.21.6  VARIABLE 

LISTING 

Variable 

Description 

Dimension 

AAA 

Dummy  variable 

- 

D(ACVF) 

Cross  sectional  area  of  the  valve  fluid 

IN2 

ACVW 

Cross  sectional  area  of  the  valve  walls 

IN2 

D(ASAV) 

Outer  surface  area  of  valve 

IN2 

D(ASFP) 

Surface  area  of  the  piston 

IN2 

D(ASFV) 

Internal  surface  area  of  the  valve  walls 

CM 

A1,A2,A3,A4 

Dummy  variables 

- 

B(  ) 

Computational  array 

- 

CID 

Dummy  variable 

- 

CIP 

Radiation  coefficient 

WATTS /°R4 

CJ 

Mechanical  equivalent  of  heat 

FT -LBm/ WATTS - 
SEC 

COEFF 

Dummy  variable 

1/IN4 

CPPN 

Specific  heat  of  the  valve  piston 

WATTS -SEC /°F 

CPVW 

Specific  heat  of  the  valve  walls 

WATTS-SEC/ °F 

CV 

Thermal  conductivity  of  the  valve  walls 

WATTS / IN-0 F 

DCAPT1 

Heat  added  to  fluid  due  to  a pressure  change 

°F 
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Variable 

Descripcion 

Dimension 

DCOEF 

Discharge  coefficient 

— 

DDD 

Dummy  variable 

- 

D(DELTAX) 

Distance  fluid  travels  through  valve 

IN 

DXV 

Distance  from  valve  wall  node  to  interface 
with  line  segment 

IN 

EPSION 

Emissivity  of  the  valve  walls 

- 

FMASS 

Mass  of  the  fluid  in  the  valve 

I ERR, I ERROR 

Dummy  variables 

- 

D(ITF) 

Initial  temperature  of  the  fluid 

°F 

D(ITV) 

Initial  temperature  of  the  valve  walls 

°F 

L1.L2 

Leg  connection  addresses 

- 

D(MTYPE) 

Valve  material  type 

- 

D(PERC) 

Percent  of  heat  added  to  fluid  due  to 
pressure  drop 

- 

D(PMASS) 

Mass  of  the  piston 

LBm 

D(PTYPE) 

Piston  material  type 

- 

RHOIL 

Fluid  density 

LB  /IN3 
m 

RHOV 

Density  of  the  valve  walls 

LB  /IN3 
m 

RMFL1 

Entering  fluid  mass  flow 

LB  /SEC 
m 

RMFL2 

Exiting  fluid  mass  flow 

LB  /SEC 
m 

R1,R2,R3,R4 

Dummy  variables 

SHAPF 

Shape  factor  valve  walls  to  surroundings 

- 

SIGMA 

Stefan-Boltzman  radiation  constant 

watts/in2-°r4 

D(TA) 

Temperature  of  the  surrounding  ambient 
atmosphere  » 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 

D(TFV) 

Fluid  temperature  in  the  valve 

°F 
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Variable 

Description 

Dimension 

DT(TVP) 

Piston  temperature 

°F 

DT(TW) 

Wall  temperature  of  the  valve 

°F 

D(UAV) 

Heat  transfer  coefficient  (surrounding 
ambient  to  valve) 

watts/in2-°f 

UFWIL 

Heat  transfer  coefficient  (fluid  to 
valve  walls) 

watts/in2-°f 

VALY 

Valve  piston  position 

IN 

D(VMASS) 

Mass  of  the  valve  walls 

LBm 

D (VOLUME) 

Internal  volume  of  the  valve 

IN3 

D (WIDTH) 

Valve  slot  width 

IN 

For  variables 

in  common  refer  to  Paragraph  3.3. 
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6.21.7  Subroutine  Listing 


C 


c 


SU3ROUT1.4L  TVALV21  ( D,  IT,  00,  L) 

***  RLVISLD  AUGUST  20,1076  *** 

DI.-l LUSIOW  D(  1 ) , DT(  ] ) , DD(  1 ) , L(  1 ) 

CO  i.-.ON  /TRA\;b/P(  300)  ,0(  300)  ,C(  300)  , iC(  300)  ,T*i(  300)  ,TF(  300)  , 
+ ACF(  300)  ,AC.<(  300)  ,OXF(  300)  , TT.il. , Dl  LT,  PI,ULT  *L,NLL 
CO.i.,OU  / COi. P/LTYPI. ( 0 9 ) , NC ( 90  ) , KTb-'i  P(  99 ) , I GO, I LUTK, I U L 
CO.!. .09  / STbAOY/ P.G (00)  ,->1(00)  , P1.X(90)  ,PDLt<;(90)  ,OL(90)  , 


+ LLiiU , ICO S , I. mV7,  I.IX , IfvZ  , NUP(  c>0 ) , 40,. G(90),  4LL!V,(  00)  , 

+1 LLGAO ( 0 0 ) , I LhO(  1000) 

CO... .09  /FLU I VATPKl.S,CF,CPFA,  FTJ  .iP,  PROP(  13,3) 

DT.G.MSIOA  \(  3,  3)  , B(  3) 

I U T . L 0 UAV , AS  A v’ , I’M  f , T A , V.  .ASS,  ILL  I’ A X , IV. , , TV F , PL  PC , A G F V , 
+ XOlF  , ACVP  , PTYPl.  , Pi  .AGS,  \GF  ? , TV  P,  VOLU.a. 


O ARRAY  VAPIA.3LLG 


DATA  , iTY PL/ 1/  , V. .ASS/  3/  , OL L f \ X/ 5/ , ASA  V/ 7/  , ASF  V/  9/  , 

+ UA  V/ 1 1/  , PL  PC/ 1 2/  , T3  T/ 1 3/  , TA/ 1 4/  , I TF/ 1 V , I TV/ 1 6/  , V<_>  lU.  i l/  6/ , 
+ nl  7TI/ 17/ , OCOlF/  1 3/ , ACVt/ 1 0/ , PTY PL/  2/  , p ,ASo/4/ , AoFP/9/ 

C 01  ARRAY  VAFIA.1LLS 

OAT  A rv.</ 1/  , TVF/  2/  , T 7 P/  3/ 

DATA  ST  3 i A/ . 3 10 L-l  1/ , S11APF/ . 96/  LPJI0.9/.  3/,CJ/8. 8 5/ 

IF(  I !\9 i':<)  1300,2001,  3000 

looo  costiuui; 

KTYPL=O(.iTY?L)+.001 
.'1TYFL=0(  PTY  Of.) + .00 1 
R/iOV=PROP(  YTYPL,  2) 

CPPT  = ?ROP(  :%'TY  jl  , 1 ) 

C 7,7w  - PR  UP  ( KT  Y PL , 1) 

CV=PkOP( TTYPL, 3) 

OLLTAY  =LISTAUCL  FLU  I ) TMVLLS  XAGUG.i  MLVL 
V. i ASS  =..AA;i  oP  T.Il  VALVL  ( if  ) 

ASAV  = SURF ACL  \i<:.A  VALVL  I’O  A.. OILS? 

ACV-;  ACROSS  SLCTIO.UAL  A PL  A OF  VALVL  „ALL 

AS,rV  =.fi.TTLC  S.JRF  AC  L A ALA,  PLOT  3 TO  VALVL, 

D( TST)  = ( 0( TGT)  + 160.  ) **  4 
L1=L( 1) 

[>2=L(  2) 

TF( Ll)-0( ITF ) 

TF ( L 3 ) = 0 ( ITF) 

TC ( LI ) = 0( I TV) 

TC  ( L2)=D(  I TV) 

OT(  rv-;)  = D(  I TV) 
or(  rvp)=o(  itf) 

DT( TVF ) =D( ITF) 

IF(  0{  UAV)  .LO.O.O)  0(  UA  V)  = . 0063 
L(  3 ) = 90.  OF  X VA RI A 3LL.0 
L( 4 ) = START  OF  Y VARIABLLA 
LL=  ( L{  3 ) + 7 ) /B 
L ( 4 ) = 2 r> +L  L*  3 


RLTURH 
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6.21.7 


(Continued) 


2000  CO'ITIHUL 


IF<  ICO'I.-n'L,  1)  RLT'JR" 

CALL  I*JTbRP(  I’l.li;,  0(  25)  , D(  L(  4 ) ) , 1 0 , L(  3 ) ,VALY,  Ii„Rk) 

IF { VALY.  L2'.  0.0)  GO  TO  2010 

COl'F=.  5/ ( D(  DCCLF)  * VA LY* 0 ( WI  IT H ) )**2 

°U P=  PU P-OA* 01*COc.F* RHO(  l’F(  L(  1 ) ) , PUP) 

rvhT'JPO 

201 A p J?=PUP-10I  6*01 
ni,T:JP;i 


3 000  CO.-TIXM 
L1=L( 1 ) 

L 2 = L ( 2) 

A A \=0( ACVF ) 

CDL=.>0.?T(  AAA*  4 ./?I ) 

OF  .TL='JF-'(  AAA,  DDF,  A3h(  ">(  LI ) ) ,TF(L1)  ,P(L1)  ) 
?uiPl=TC( LI) 

P hOI  L=3>*  0 . 4 * PUO(  f !?(  LI ) , P(  LI ) ) 

F,.A;>G=D(  VOLU.ii;  )*F.)OIL 

ACV..  = r-(  V.iAoG)  / ( RilOV*D(  OLLTAX)  ) 

.r.iFLl»A3S(  ?(  LI ) ) *RMOIL 
iFL2=A3S  ( ?(  L2)  )*P,’IOIL 
\3=2.  iFLl*CPFM 
32=D( AoFP)  *UF..IL 
A5=:A(F[.2*CPF\i 

Cl  P=oI3«iA*LPyi0',*.3MA°F*0(  Ai> A V ) 

DXV=D(  OLLTAX  • /2.  3 
31=UF..'IL*0(  ?V) 

33  = 0(f'YV)  *0(AJAV) 

OC  A pt  1 = ( ( 1 . 0 / R f i O I L ) * A : l S ( P ( L 1 ) - P ( L 2 ) ) ) / ( C J * C P F N ) 
R]=l  .0/(  OX  F(  :,l)/(  ACrt(  Li)  *C(  LI)  )+OXV/(ACVn*CV)  ) 

R 2 = 1 . 0/  ( DXF ( 1.2 ) / ( AC .*  ( L 2 ) *C { L 2 ) ) + OX V/  { AC Vw * C V ) ) 
i\3=CF/(  OXV/.O)  ACVF)+DXF(  L1)/ACF(  LI ) +P.i?Ll* 

+ Of:'LT/(  D(  ACVF)  **2*RnOIL)  ) 

K4=CP/( OXV/Oi ACVF) +DXF( L2  ) /ACF  ( L2 ) +P.ITL2* 

+ OLLT/( D{ ACVF) **2*«HOIL) ) 

IFp(U  ).<3T,.00l)  CO  TO  3003 
IF(  AJMO(Ll)  ) . LT.  .001)  GO  TO  3000 
L2“L( 1 ) 

L1  = L(  2) 
h 3=0.0 
A 3 = 0 . 0 

cio=r<i 

F- 1 = K 2 


L2=CI O 
Kd  2=0. 0 
GO  TO  3000 

3006  f<3=0(  ACVF)  *D(IJVV) 
R 2 = R 3 

r<4=o.  o 

•30  TO  3 000 


/ V 

*v, 

/ >M»«,  ■V 

S t J 
•/ 


* 
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6.21.7  (Continued) 


3003  R 4 = 0 . 0 
A 5=0 . 0 
R 4 2=0. 0 
3009  CONTINUE 

<A(  1 , l)=Bl+A3+3  2+R3+R4+F.[A?S*CL>PIJ/DELT+R4  2+A5 
A( i , 2 ) =-B  1 
A( 1, 3)=-32 
A( 2, 1)=-31 

A ( 2,  2)  = D(  VilASS)  *CPVW/DbLT+Rl+R2+3  1+3  3 
A(  2 , 3 ) = 0 . 

A ( 3 , 1 ) =-32 
M 3 , 2 ) =0. 

A(  3,  3)=D(  P.iASS)  *CP?N/DLLT+32 

3 ( 1 ) = ( A3+R4+R3+A5 ) *TF(  L 1 ) + Rw  1' LI  * C PFN' * 0 ( PLRC) *OCAPTl 
+ +R42*TF(  L2)  +F.iASS*CPf  il*DT(TVP) /DLLT 
3(  2 ) = D(  VI  i ASS ) *CPVW*  DT  ( TW/)  /DLLT+Rl*TvJ  ( Ll)+R2* 

+ T..’(  L2)+33*D(TA)+CIP*D(  TST) -Cl P*  ( DT(TV.j)  + 4 60.  ) 

+ **4  + RilFLl*CPFN*(  l.-D(  PLRC)  ) *DCAPT1 
3(  3 ) =D(  P.IASS)  *CPPol*DT(  TVP) /DbLT 
CALL  SI.1ULT(  A , 3, 3 , 1 ERROR) 

TF( L2)=3( 1) 

TC(L1)=3( 2) 

TC( L2)=3( 2) 

DT( rVF)=B( 1) 

DT(  TVV( ) = 3 ( 2) 

DT ( rVP)=B( 3) 

PL TURN 
L'lD 
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6.22  SUBROUTINE  TVALV22 


Subroutine  TVALV22  describes  a generalized  four-way  valve  which  can 
be  a segment  of  a servo  actuator  (connected  to  it  by  lines)  or  control 
any  servo  or  utility  type  function,  as  shown  in  Figure  6.22-1. 

The  valve  position  is  derived  from  input  data,  tabulated  versus  time. 
The  actual  position  is  obtained  using  linear  interpolation  between  the 
nearest  two  data  inputs. 

The  valve  orifice  areas  are  derived  using  a variable  law  which  can 
effectively  describe  leakage,  open  center,  underlap  and  overlap  condi- 
tions, with  various  pressure  gains. 

A fluid  volume  in  the  valve  is  associated  with  each  connecting  line. 
The  subroutine  calculates  the  temperatures  of  the  four  fluid  volumes  and 
the  temperature  of  the  valve  wall. 


CON  #3  CON  n 


X + ve 


Xrxf 


lL;  J 


rn.n  j 


CON  “2  CON  M 


FIGURE  6.22-1 


TYPE  NO.  22  FOUR-WAY  UALVE 
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6.22.1  Math  Model 


The  thermal  math  modei  includes  heat  transfer  to  and  from  four 
connecting  line  segments,  as  shown  in  Figure  6.22-2.  The  valve  is 


represented  by  four  fluid  nodes  and  one  wall  node,  and  each  line  is 
represented  by  one  fluid  and  one  wall  node,  DT(TVW).  The  temperatures 
of  the  valve  fluid  volume  downstream  or  upstream  of  each  connecting 
line  segment  are  T0(1),  T0(2),  T0(3),  and  T0(4).  The  temperatures  of  the 
fluid  and  wall  nodes  of  each  connecting  line  segment  .,re  TF(L1)  through 
TF(L4)  and  TW(L1)  through  TW(L4).  In  a four  way  valve  the  fluid  can  enter 
two  lines  and  can  leave  two  lines.  To  understand  the  math  model 


6.22-2 


let  us  consider  the  case  where  the  fluid  enters  connection  1,  into 
volume  1,  flows  to  volume  2,  leaves  connection  2,  flows  through  part 
of  the  system,  reenters  connection  3,  into  volume  3,  flows  to  volume  A, 
and  leaves  connection  A.  These  paths  are  shown  in  Figure  6.22-3. 

The  fluid  in  the  four  nodes  are  affected  by  the  fluid  in  two  other  nodes. 
As  shown,  the  fluid  in  volume  1 is  affected  due  to  losses  to  volume  3 and 
gain  from  volume  A.  The  other  fluid  volumes  are  affected  similarly. 


FIGURE  6.22-3 
FLUID  FLOW  PATHS 


Equations  can  be  written  for  fluid  node  1 through  A,  and  for  the  valve 
wall  node. 

The  first  four  equations  represents  four  modes  of  heat  transfer  to 
and  from  the  volume  fluid  nodes. 
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1.  Heat  transfer  due  to  mass  transfer  into  the  volume  from  upstream 
of  the  volume 

RMF(l)  * CPFN  (TF (LI)  - T0(1))  for  volume  1 
RMF ( 3 ) * CPFN  (TF(L1)  - T0(3))  for  volume  3 
zero  for  volumes  2 and  4 
where  RMF(l)  is  equal  to  Q(L1)  * RK011,  etc. 

2.  Conduction  to  and  from  the  fluid  node  in  the  connecting  line  segment. 

R(l)  * (TF  (L(l)  - T0(1))  for  volume  1 
R (3)  * (TF  (L(3)  - TL(3) ) for  volume  3 
where  R(  ) is  the  conduction  coefficient 
and  is  equal  to  CF/(D  X F (L(I)  / ACF  (L(I))  + 

D X VF  / D (ACVF)  + RMF  (I)  * DELT/  (D(ACVF)** 

2 * RHOIL) ) where  1*1  for  line  1 and  3 for  line  3 
This  term  is  zero  for  nodes  2 and  4 
lb.  Heat  transfer  due  to  mass  transfer  into  the  volume  from 
the  other  three  fluid  volumes. 


RMD(4)  * CPFN  (TO (4)  - TO(.l)) 

RMD(]J  * CPFN  (T0(1)  - T0(2)) 

RMD(5)  * CPFN  (T0(1)  - T0(3)) 
RMD(2)  * CPFN  (TO (2)  - T0(3)) 

RMD(6)  * CPFN  (TO (2)  - T0(4)) 
RM0(3)  * CPFN  (TO (3)  - T0(4)) 


for  volume  1 
for  volume  2 

for  volume  3 


for  volume  4 


where  RMD(l)  * CPFN  is  equal  to  Ql(l)  * CPFN  * RHOIL  etc. 
QI(5)  and  QI(6)  are  the  leakage  flows  between  volumes  one  and 


three,  and  two  and  four,  respectively,  and  are  equal  to  zero 
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4.  Convection  with  the  wall 


U(4)  * A(l)  * (DT(TVW)  - TO(l))  for  volume  1 
U(l)  * A(2)  * (DT(TVW)  - TO (2))  for  volume  2 


J (5)  * A (3)  * (DT(TVW)  ~ T0(3)) 

U (2)  * A(3)  * (DT(TVW)  - T0(3)) 

U(3)  * A (4)  * (DT(TVW)  - T0(4) ) 

U (6)  * A(4)  * (DT(TVW)  - T0(4)) 


for  volume  3 


for  volume  4 


Where  UO)  is  a heat  transfer  coefficient  for  volume  flow  rate 
RMD(3)  and  A(4)  is  the  surface  area  of  volume  four  and  the  valve 
walls  equal  to  D(ASFV)  (or  really  D(ASFV)/4.0) . 

5.  Hr  t addition  due  to  a pressure  drop  experienced  by  the  fluid. 


DCAPT  (1)  * RMD(l)  * CPFN  for  volume  2 


DCAPT  (2)  * RMD(2)  * CPFN 
DCAPT  (5)  * RMD(5)  * CPFN 


for  volume  3 


DCAPT  (3)  * RMD(3)  * CPFN  , . . 

DCAPT  (6)  * RMD(6)  * CPFS  t0r  VOl'”e  4 

DCAPT  (4)  * RMD(4)  * CPFN  for  volume  1 

Where  DCAPT(2)  is  the  heat  add  to  volume  two  due  to  the  pressure 

drop  between  line  one  and  line  two  equal  to  (l.O/RHOIL)  * 

ABS  (P (LI)  - P(L2))  / (CJ  * CPFN) 
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The  heat  transfer  terms  combine  to  produce  four  equations  for  heat 
balance  for  the  valve  four  fluid  nodes: 

For  volume  one, 

MgH  * (T0(1)-T0(1)0LD)=  RMF (1 ) *CPFN* (TF (LI ) -TL (1 ) )+ 

R(1)MTF(U)-T0(1))+RMD(4)*CPFN*  (1) 

(TO (4 ) -TO ( 1 ) ) +U (4 ) *A (1 ) * (DT (TVW) 

-TO (1 ) )+DCAPT (4 ) *RMD (4 ) *CPFN 

For  volume  two, 

MC2_  * (TO(2)-TO(2)  )-  RMD(1)*CPFN*(T0(1)-T0(2))+ 

DELT  ULL  , s 

U(l)*A(2)*(DT(TVW)-TO(2))+  (2) 

RMD ( 1 ) *CPFN+DCAPT (1 ) 

For  volume  three, 

Mgpi  * (TO  ( 3 ) -TO ( 3 ) QLD ) = RMF  ( 3 ) *CPFN*  (TF  (L3 ) -TO  ( 3 ) ) + 

R ( 3 ) * (TF (L3 ) -TO ( 3 ) +RMD ( 2 ) *CP  FN*  (3) 

(TO ( 2 ) -TO ( 3 ) ) +RMD (5)*CPFN*(T0(1)- 
TO ( ? ) ) +U ( 2 ) * A ( 3 ) * (DT (TVW) - 
TO (3) )+U(5)*A(3)*(DT (TVW) -TO (3) )+ 

DCAPT (2 ) * RMD ( 2 ) +CPFN+DCAPT ( 5 ) * 

RMD(5)*CPFN 

For  the  fourth  fluid  volume, 

(TO (4)  -TO (4 ) 0Lj})  = RMD ( 3 ) *CPFN (TO (3 ) -TO (4 ) )+RMD ( 6) * 

’ CPFN*(TO(2)-TO(4))+U(3)*A(4)*  (4) 

(DT (TVW) -TO (4 ) ) +U (6)*A(4)* (DT (TVW) - 
TO ( 4 ) ) +DCAPT ( 3 ) *RMD ( 3) *CPFN+DCAPT ( 6 ) 
*RML'(6)*CPFN 

where  all  MCp's  are  equal  to  FMASS*CPFN 
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The  fifth  equation  represents  three  modes  of  heat  transfer  relative 
to  the  valve  wall  node; 

1(a)  Convection  with  all  six  internal  volume  flow  rates 

U(4)*A(1)*(T0(1)-DT (TVW))+U(1)*A(2)* 

(TO  ( 2)  -DT  (r-’W)  ) + (U  ( 2 )+U  ( 5)  ) *A  ( 3)  * 

(T0(3)-DT (TVW) )+(U(3)+U(6) )*A(4) 

* (TO (4 ) -DT (TVW) ) 

where  the  U's  and  A's  were  defined  previously 

1(b)  Convection  with  the  external  atmosphere 

D(UAV)*D(ASAV)*(D(TA) -DT(TVW)) . 

D(UAV)*D(ASAV)  is  the  convection  heat  transfer 

coefficient  between  the  wall  and  the  atmosphere. 

2.  Conduction  with  all  four  connecting  lines 

RI*  (TW  (L  ( I)  ) -DT  (TVW)  ) 

where  RI  is  the  conduction  coefficient  between 
line  wall  segment  I and  the  valve  wall  and  is  equal  to, 
1 . 0/ (DXF (L(I) / (ACS (LI) *C (LI)+DXVW/ (ACVW*CV) ) 
and  I designates  the  1th  (connection)  number. 

3.  Radiation  exchange  with  the  surrounding  structure  is 

CIP*(D(TST)-(DT(TW)+A60.)**A)  . 

CIP  is  the  radiation  coefficient  equal  to  STC.MA*SHAPF* 
EPSI0N*D(ASAV) . 

These  heat  transfer  reactions  combine  to  produce  an  equation  for 
t lie  heat  balance  in  time  DELT,  for  the  valve  wall  node. 
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MCp  * (DT(TVW)-DT(TVW)  )=  U(4)*A(1)+(T0(1)-DT(TVW))+ 

DKLT  old 

U (1 ) * (A2 ) * (TO  ( 2 ) -DT (TVW) ) + 

(U  ( 2)  *U  (5)  ) *A (3) * (TO (3 ) - 

DT('l'VW)  )+(U(3)+U (6)  )* 

A (4 ) * (TO (4 ) -DT (TVW) )+Rl* 

(l'W(Ll)  -DT (TVW)  )+  | (RI* 
i-=2 

(TW (LI) -DT (TVW) )+D (UAV) *D (ASAV) * 

(D (TA) -DT (TWV) )+CIP* (D (TST) ) - 
CIP* (DT (TVW) +460.) **4 

where  MCp  is  equal  to  D(VMASS)*CPVW 

A thermal  model  of  the  above  heat  transfer  terms  for  the  valve  is 
shown  in  Figure  6.22-4.  Equations  (1)  through  (3)  are  solved  for  the 
appropriate  temperatures. 

CALCULATION  OF  ORIFICE  AREAS 

Spool  and  sleeve  type  servo  valves  can  have  a variety  of  orifice  con- 
figurations, the  most  common  of  which  are  round  holes  and  square  or 
rectangular  slots. 

Because  of  radial  clearances  between  the  spool  and  sleeve,  there  is 
usually  a leakage  flow  when  the  orifice  is  completely  covered.  This  leakage 
tends  to  round  the  ends  of  what  would  otherwise  be  a linear  flow  versus 
spool  position  characteristic.  In  order  to  simplify  the  flow  calculations, 
we  have  assumed  that  the  valve  area  is  an  equivalent  area  which  allows  the 
orifice  equations  to  be  used  at  all  times. 

To  obtain  the  valve  area,  for  a given  valve  position,  a characteristic 
curve  is  generated  based  on  the  projected  cut-off  position,  the  projected 
max  open  position  and  the  max  valve  area. 
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The  maximum  valve  area  is  combined  with  the  discharge  coefficient  3nd 
the  SQRT(2/RH0)  to  give  an  orifice  resistance.  The  formula  used  to  generate 
the  characteristic  curve  is 

X - (.5  + XT/  (1  + ABS(XT*2)**Y)II(]/Y) 
where  0<.  X<  1.0  for  all  values  of  XT. 

when  Y is  large,  ie.  64,  the  characteristic  curve  is  almost  a 
straight  line  between  projected  cut-off  and  projected  maximum  opening. 

Family  of  curves  for  different  values  of  Y is  shown  in  Figure  6.22-5. 

6.22.2  Assumptions 

1.  The  piston  is  not  considered  a node  since  it  is  only  a storage 
device  and  becomes  the  same  temperature  as  that  of  the  fluid. 

2.  The  atmospheric  and  structure  temperatures  remain  constant. 

3.  All  four  fluid  volumes  are  the  same  volume,  each  1/4  of  the  total 
volumes  inside  the  valve. 

4.  The  interface  conductance  between  the  lines  and  the  valve  walls  is 
infinite,  since  the  limiting  condition  is  conduction  in  the  line  itself. 

5.  The  emissivity  of  the  valve  walls  remain  constant  at  .3,  which 
is  the  value  for  steel. 

6.  The  temperatures  of  the  fluid  leaving  the  valve  are  equal  to  the 
fluid  node  temperatures  calculated,  T0(2)  to  T0(4). 

7.  Complete  fluid  mixing  occurs  In  the  fluid  volume. 

6.22.3  Computational  Methods 
SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external  structure 
temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised  to  the  fourth 
power,  and  the  default  values  are  assigned. 
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reverse)  curve  d t--8.o 
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FIGURE  6.22-5 

EFFECTIVE  VALVE  AREA  CHARACTERISTICS 


SECTION  2000 


A test  is  made  to  determine  if  a port  is  not  dimensioned,  which 
can  happen  if  it  is  a 3-way  or  2-way  valve.  If  the  area  is  zero  or 
XT  is  zero,  XT  is  set  to  .0001  to  prevent  the  computation  blowing  up 
when  XT  is  used  in  the  denominator. 

The  steady  state  section  is  straight  forward,  the  valve  pressure 
drop  is  subtracted  from  the  upstream  pressure  PUP  for  each  call 
to  a particular  connection. 

SECTION  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are 
calculated.  The  flow  direction  is  determined.  (The  program  is  set  up 
with  the  flow  entering  connection  line  one  (LI)  and  leaving  through  connection 
line  four  (L4).  During  the  calculation  the  flow  direction  is  checked. 

If  the  flow  has  reversed  flow  direction,  the  program  reassigns  connection 
numbers  so  that  the  flow  still  enters  connection  line  one).  Some 
coefficients  are  then  recalculated  if  the  flow  is  reassigned.  A 5x5 
matrix  is  loaded  and  the  mathematical  equations  are  solved  for  TO(l) 
thru  T0(4)  and  DT(TVW)  and  stored  in  the  B computational  array.  The 
calculated  values  are  assigned  to  their  proper  storage  locations  and  the 
boundary  conditions  assigned  to  arrays  (TC  and  TF)  in  common  /TRANS/. 

6. 22. A Approximations 

1.  The  valve  wall  is  only  one  node  and  is  all  at  the  same  temperature. 

2.  The  heat  transfer  coefficients  are  calculated  on  the  velocity 

in  the  valve,  by  the  function  subroutine,  UFW. 

3.  The  heat  transfer  coefficient,  external  to  the  valve  wall,  is 

constant  and  input  by  the  user. 
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4.  All  areas  and  distances  are  approximations  based  on  the  volume, 
the  mass,  or  input  data  that  is  appropriate. 


6.22.5  Limitations 


The 

current  limitation  of  TVALV22  is  the  possible  need  for 

a 

variable 

orifice  coefficient,  particularly  in  the  overlap  region. 

An 

undesireable  feature  is  the  need  for  up  to  four  nodes  at  the 

junctions  with  the  lines  when  all  the  parts  have  a significant 

flow. 

Leakage 

flows  between  connect  was  1 and  3,  and  2 and  4 and  not 

computed . 

6.22.6 

Variable  Listing 

Variable 

Description 

Dimension 

A'  ) 

Computational  Array 

- 

AAA 

Dummy  variable 

- 

D(ACVF) 

Cross  sectional  area  of  the  valve  fluid 

IN2 

ACVN 

Cross  sectional  area  of  the  valve  walls 

IN2 

ADD 

Dummy  variable 

- 

D(ASAV) 

Surface  area  - atmosphere  to  valve 

IN2 

D(ASFV) 

Surface  area  - fluid  to  valve  walls 

IN2 

Al.AVG 

Dummy  variables 

- 

B ( ) 

Computational  array 

- 

CIP 

Dummy  variable 

- 

CJ 

Mechanical  equivalent  of  heat 

FT-LB  /WATTS -SEC 
m 

CPVW 

Specific  heat  of  the  valve 

WATTS-SEC/LBm-°F 

CV 

Thermal  conductivity  of  the  valve 

WATTS/IN-°F 

DCAPT ( ) 

Heat  added  to  fluid  due  to  pressure  drop 

°F 
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I) linens  ions 


Variable 

Description 

DDD 

Dummy  variable 

D (DELTAX) 

Distance  from  entrance  to  exit  or  valve 
openings 

DXVF 

Distance  from  a fluid  node  to  the  interlace 
with  a connecting  line 

DXVW 

Distance  from  node  to  interface  of  valve 
and  lines 

EPSION 

Emissiv^ty  factor 

FAC 

Dummy  variable 

FMASS 

Fluid  mass  of  each  node 

I, TERR, I J, IS 

Dummy  variables 

D(ITF) 

Initial  fluid  temperature 

D(ITV) 

Initial  valve  wall  temperature 

KTYPE 

Dummy  variable 

D(LEAK5) 

Laminar  Leakage  coefficient 

D (LEAK6) 

Laminar  leakage  coefficient 

L1,L2 ,L3 ,L4 , 
M5,M6,NM 

Dummy  Variables 

D(MTYPE) 

Value  material  type 

D(PERC) 

Percentage  heat  added  to  fluid  due  to 
pressure  drop 

QK  ) 

Array  of  internal  volume  flow  rates 

RHOIL 

Fluid  density 

RHOV 

Density  of  the  valve  mass 

RMIJ  ( ),  RMF(  ) 

Computational  arrays 

RMT  R1 
R2,R3,R4 

Dummy  variables 

SHAPF 

Shape  factor  valve  case  to  surrounding 
structure,  constant,  .96 

SIGMA 

Stefan-Boltzmann  constant  for  radiation 

IN. 


IN. 


LB 


m 


O 


F 


°F 


PSI/CTS 

PSI/CIF 


CIS 

T.B  /TN3 
in 

LB  /IN3 
in 


WATTS/ IN2  -°R/* 


6.22-14 


Variable 

Description 

Dimension 

D(TA) 

Temperature  of  the  surrounding  atmosphere 

°F 

TEMPI ,TERM 

Dummy  variables 

- 

TO  (I) 

Array  of  valve  fluid  node  temperatures 

°F 

T(TST) 

Temperature  of  the  surrounding  structure 

°F 

DT(TVW) 

Temperature  of  the  valve  walls 

°F 

U(  ) 

Heat  transfer  coefficients  internal 
to  the  valve  walls 

watts/in2-°f 

D(UAW) 

Heat  transfer  coefficient  - 
atmosphere  to  valve  walls 

WATTS /IN  2 -■’F 

D(VMASS) 

Valve  mass 

LB 

m 

D (VOLUME) 

Volume  inside  valve 

IN3 

XT, XV 

Dummy  variables 

- 
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.loofin-oo  ci  o 


6.22 


C 


( 

i 


. 7 Subroutine  Listing 


snnuon-i'i  a.  -pv^lv22  (o,dt,dd,l) 

CO.-!., ON  /TR\MS/P(  300)  ,?(  300)  ,C(  300)  ,TC(  300)  ,TL(  300)  ,TF(  300) 

+ , ACP(  300)  ,AC.*(  300)  , DXF ( 300) ,?T  -,i.,  DlLI’,  PI , NLI  JL,  ALL 
CO.,., ON  /CO.iP/LTYPl  (09)  ,\'C(  09)  , <TL.sl’(  00)  , IMD,  It NTH,  INr.L 

co.n.o'i  /3ri..'.r///n'i(  on) , on ( 9 o ) , plx(oo)  , poli  g(90)  ,ql(oo)  , 

+ '\A , OS  , L , PI)  P , POCw , 'JNOOb , NLL.G , >.’C  PN  , T,JRG , LLGN , ICO ') , I NV , 

+ I NX,  I.JZ  , N'JP(  00)  ,NO',N(<)0)  , MI.LLn  (90)  , I LbCAO(  00)  ,ILLC(1000) 

CO  ,..0“  / F LUX  'V  ATPR  bC , CP  , C PFN1 , FTt-irl  P , ?ROP(  13,3) 

OI  •,h'!,'ION  D(  1 ) , OT(  l)  , DD(  1)  , L(  1) 

Or  .LNSIOG  TO(  A ) , DCAPf  ( 4,6)  , K.,D(  4 , 3 ) , «,.F{  4 ) , A(  5 , 5 ) , U(  0 ) , 

+ "{ 1,0} ,OI(f) ,0(6) 

I ITLGLP  l.'AV , A:3\V , TbT , TA , ITV,  V: iASS , DLLTAX , PLLC , ASFV,  TV*v  , 

+ I TF  , VO  LU. . t , AC VF 
0 A 3 KAY  V.M- 1 A ILL  Li 

OAT  A . ,TY  PL/ 1 7/  , V..AC.V  1 0/  , VOLlJ.ib/ 10/,  DLLTAX/  2 0/  , A3PV/  2 1/  , ASA'//  2 2/ 


M 


AV/24/,  Pi.UC/21/ , ryf/26/,TA/27/,  ITF/20/,  ITV/20/,ACVF/23/ 


+ , U.AXV31/,  LLAK6/32/ 
O?  ARRAY  v \ivl  VOL  ho 


OAT A VVw/17/ 

OAT  A CI  V : V . 3 4 0 1 - 1 1/  , 3hA  ?F/ 1.0/  , l PC  1 0,-)/ . 3/  , C 1/  3 . R 5/ 
iF(ii,:iro)  noo, 2ono, 3000 
10Cn  CONTI -UL 

ObLTAX  =AVl  a A 'I,  9ISTANCL  FRO.,  ONL  I 4LtT  Tu  A NO  T-iL.i  IiLti 

(avlr-agl  of  all  ”ogshi.i-  co.,oi.:ati  yis) 

ASA '!  =3UR?\CL  \.:t.A  C ACL  TO  A.,UIt.  VI 

A3PV  swLTTLO  oOt-rVCi  AulA  OF  LUXO  TO  C Aol(  I NCLUOI  IS  PI.VPO  . Alt  A 


PL  <C  =Pl  i<Cl  :t.agl  OF  Pl.AT  AOLtD  to  fluid  ou  to  p.ILJCJM 
°I(I)  *FL0.|  IN  VALVL  Fl"0.,  I TO  1 + 1 PORTS 

iTYPL  =VALAL  ..-ATLRIAL  TY 15 L 
VOLU.il.  =TOTAL  'AJLU.,1  O'?  LT’OIJI  0 l l VALVL 
L(5)=Nl)i0lR  OF  X 0 A TA  PTC. 

LL=(  L(  5) +7) /'\ 

L(  7)  = 33  + LL*3 
L( 6) =3 3 

KTYPt.=D(  .'ITPl  )+. 001 
CPV  i = i?ROP(  TY  Jt. , 1) 
iiiiOV=?R‘)l: ( VTY PL , 2 ) 

C V- PROP ( X TY PL , 0 ) 

TO  1010  1=1,4 
LI  = L,(  I ) 

TC( LI )=D( ITV) 

TP( L I ) = F ( ITP) 

1010  TO(I)*  J(TT,W) 

DT ( T //. ) = D ( ITV) 

0(  ASF V)  = Q(  ASFV) / 4,0 

IF  (0(rJAV)  .1.0.  0.0)  }(  iJAV)  = . 00  69 

0(  TST)  = (0( rsT)+4S0.) **4  . 

PL TURN  I 

2000  C9NTINUL  * 

-J=4  * ICON-3  , , {. 


DROP 
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6.22.7 


(Continued) 


FAC=0(N+2)  *30R?(  2./R!!0(T'?(  L(  ICOtJ)  ) , PUP)  ) *.65 
XT=D( N+l ) -D(  N ) 

AVG=(  0(  'i ) +0( »J  + 1 ) )/2. 

IF ( XT. tO. 0.0) XT= ,0001 
IF ( FAC. LL.0.0)FAC=. 00001 

CALL  INTbRF(TI,iL,  0(  L(  f ) ) , 0(  L ( 7 ) ) , 1 0 , L(  5 ) ,XV,  IfcRK) 
XT=( xv-avg)/xt 

TlR.i=FAC*  ( . 5 + XT/(l.+.\3S(  XT*  2.  ) **D(  M + 3 ) )**(  l./DvU  + 3 
+ ) ) )+. 0001 

C >.;RITL(  6,000)  >! , A v’G , 0 1 , F AC , XT , X V , T L R.-i 

000  FORMAT ( 10X, 110, 6l12. 5) 

PUP=PUP-QU*(  DA/Tt.L.)  * * 2 

AI(ICO^)*Ol 

Hi  TURN 


3000  COhTIjJUL 
L1=L( 1) 

L2=L( 2) 

CPV.<  = PROP(  XTYPL  , 1 ) 
PLOV=Pl<OP(  XTYPl  , 2) 
CV*PROP( KTYPl, 3) 


L 3 = L ( 3) 

L4  = L(  4) 

0I(  5)«(  P(L1)-P(  L3)  )/D(  LI.AK5 ) 

01 ( 6 i - ( P ( L 2 ) -P( L4) )/D( LLV<6) 

OK  r')=0.0 
oi (5) =0.0 
TO( 5 ) =TO( 1 } 

TO( 6 ) =TO( 2 ) 

FiIOIL=336.  4*XMO(  ( 1*0  ( 1 ) +TO(  2 ) f TC(  3 ) +TO(  4 ) )/4.0,  ( P(  Ll)+P(  L2) 
+ +P(L3))/3.) 


M = D 
Fi  ’.A3 
Cl  P= 
\CVi. 
DXVi. 
nwF 
01  = 1 
P2  = l 
?;3  = 1 


( UAV) *0( 33A7) 

3=D(  VOLU.-H.  ) * i<<!01  L/4 . 0 
S I Oa  I A*  3liA  PP*  L ION*  ) ( ASA  V ) 

=o(  v. :ass ) / ( n.iov*D(  dlltax)  ) 

= D( DLLTAX )/2. 0 
= D(  DLLTAX)//!. 

. 0/  ( D'<  F ( L 1 ) / ( AC  .7  ( L1)*C(  Li  ) ) OXVw/(  ACV.<*CV)  ) 
. 0 /(nxp(  L2 )/(  AC.<(  L2  ) *C(  L2)  ) +OXV«./  ( ACV.,*CV)  ) 


.0/(DXr-(L3)/(A 


it  •)  \ * n i 

'w. \ i j J ) v*  v 


,3)  HDXV.;/(ACV«*CV)  ) 


3003 


r</J  = l.  0/(DXF(  L4)/(  AC..(  L4  ) *C{  L4  ) ) +DX7../ ( ACVw*CV)  ) 

DO  3003  1=1,4 

DO  3003  .7=1  ,3 

R.iQ(  I , J)=0. 0 

DO  3006  1=1,5 

00  3006  J = 1 , 5 


A( 


) = 0 . 0 


3006  .3 ( I ) = 0 . 0 

AAA=D( ACVF ) 
DDD=3?RT(AAA*«./PI) 
.,5  = 4 


D: 
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L 
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f ? - 
t s 

i 

i 

i - 


j 

- j 


.7  (Continued) 


13=1 

3009  00  3400  1=1,4 
N=L(  I ) 

R:iOIL=336. 4*.\HO(  T 0(  I ) , P(  3)  ) 

R.  iF(  I ) =•?(  '*5 ) *RII0I  L 
TP(  S iF(  I ) . LI  . 0.0)  3.1F(  I)  =0.0 
( I)=CF/(  Dxr(  L(  I)  )/ACP(  L(  I)  )+DXVF/D(  ACVF)+i-..F(  I ) * 
+ DlLT/(  !',(  ACVP)  **2*RHOIL)  ) 

3103  R.,T=  01  ( 1 ) *RHOIL 

rP(RiJT.GL.O.fl)  RiT=0.0 

!J(  I , I)=UF.,(  AAA,  ODD,  A.3S(  OKI  ) ) , TO  ( I ) , D(*)  ) 

K Fl  = DT(TV.i) 

IF  ( i\,T.  Gb. 0. 0 ) ’J(  I,  I)=0. 0 
r.iO(  I , 1 ) =A?3(  R..T) 

3106  :ut=0I  (•■  n ) *OOOI  L 

I ( R.i  L'.  1,2. 0.0)  R.uT=0. 0 

U ( I , i6  ) =lJFw(  AAA,  000,  V3b(  Q I { . 1 5 ) ) ,T0(  ..5  ) , P(  L(  ..5  ) ) ) 
IK  R. IT.  Lb.  0.0)  3 ( I , . 1 6 ) = 0 . 0 
U..D(  I , 2)=R.4T 

I •(  I.  t o.  3.  OR.  I.  Ld  4)  GO  TO  3 200 
3100  v ,-1=01  (,,6)  KlilOIu 

!;•(  .T.G1-.0.0)  R,  .7=0.0 

"( i » :6)*Tjr.;(  \a\,odd,  arjokko  ) ,TO(i)  ,p(.o ) 

IF ( ic. )T . GL , 0 . 0 ) ’ l ( I , «•:  6 ) = 0 . 0 
R..rs(  I , 3)=A3S(  AIT) 

GO  T^  3300 

3200  R.iT=^I  ( . . 6 ) * T.dOI  L 

IF(RnT.  LL.  0.0)  !<.:?=:).  0 

•J(  I,  i6)  = DP..'(  AAA,  ODC,  \P.S(Ol(.i6)  ) ,TO(  I)  , P(M)  ) 

i?(a.;t.li  .o.o)  -j ( i , . 1 6 ) = o , o 
J\.0(  1 , 3)=A°S'  R.iT) 

3300  COGTIFUL 

A(  I , I ) = F. . \:3S*C  IV../DLL i'+R<  :D(  1 , 1 ) *CPFK+.i.,i)(  I , 2)  *CPF: 
+ *C»F-:+(  !J(  I , I ) +*J(  I , .15 ) +'J(  1 , 1 6 ) )*0(.\3FV)+Fv..F(  I ) *Cr 
I J=I +2 

, I^d.OT.3)  10  = 1-2 

) A(  I , I.J ) =-R.»D(  1 , 3 ) *CPF  J 
j 17=1+1 

TF(  I . L ).  4 ) I.T=1 
i .>  = G(JT) 

A(I,;.J)*-R..O(I,l)*CPPN 

f OCA?T(  [,  I)  = ( l.O/RMOIL)  *A33(  ?(({)-▻(.:)  )/(C7*CPF.'J) 

\(  I,  15  ) =-K.  iO(  1,2)  *CPF'I 
. = L(  ,5) 

DC  A p r ( I , . ; 6 ) = ( 1 . 0 / R H O I L ) * A i 3 ( P ( . i ) - P ( 3 ) ) / ( C . J * C IV : : ) 
.;=L(  1 + 2) 

I F ( I . GT . 2 ) .’i=L(  1-2 ) 

DC  APT  ( I , . 1 6 ) = ( 1 . 0/ k 1101 L ) * A»b  ( ? ( .-i ) - P(  il ) ) / ( C J*C  PP;j ) 
A(I,5)  = (-'J(I,I)-U(I,.lcj)-U(I,.i6))fcD(  A S F V ) 


Y 


,i  + P.if)(  I,  3) 
?::+P(D 
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6.22.7  (Continued) 


3{  I ) =F.1AS3*CPFN*T0(  I)/DLLT+H.-iD(  I,  1)*CPFN*D(  PLRC  ) * OCAPT  ( I , I)  + 

+ l<AD(  1 , 2)*CPFN*DCAPT(  1 , 15)  * D ( PLRC  ) +RwD(  1 , 3 ) *D(  PLRC)  * DC  APT  ( I ,<:6)  * 
+ CPF:J+R.iF(I)*CPFH*TF(L(I)  )+r<(I)*TF(L(I)  ) 

A(  5,  I ) = ( - U ( I,  I ) — CJ  ( I , . 1 5 ) - U ( I / .i6)  )*D(A3FV) 

A( 5,5)=A(5, 5)-A( 5,1) 

.-,5=1 

. ! 6 = /« 6 + 1 S 
IS— IS 

3 4 00  CONTI •'JUt 

A(  5, 5)=A(  5,  5)+D(  V.1A35)  *CPVW/DLLT+.'U+R2+i,<3<  R4+A1 

3(  5 ) = D(  VliASG)  *CPV«**DT(  TVW)  /DfcLT+Rl*TV«  ( LI)  H12*TW{  L2)  + 

+ R3*Tw(  L3)+R4*rw(  L4  ) +CI P* D(  TST)  -C I P*  ( ( DT(TV-v)  +460.  ) **4  ) 

-f  +A1*  D(  TA) 

CALL  S I , UJ  LT  ( A , ’3 , 5 , 1 1 R RO  P ) 

DO  3500  n=l,4 
-M  = L(.i) 

TO(:.)*TF(.W) 

TF(N..  )=?{.'!) 

IF(  r(-4.,)  , Gl. . 0 » 0 ) ?p(  i'Ii l ) =TO{  .1 ) 

TO(a)=3(.l) 

3 5 00  TC ( L.)=3(  5) 

DT  ( TVv» ) =3  ( 5) 

F'lTURN 

l,;d 
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6.31  SUBROUTINE  TCVAL31 


TCVAL31  simulates  a simple  undamped  check  valve  as  shown  in  Figure  6.31-1. 
Although  the  actual  mechanical  configurations  of  these  values  vary  greatly, 
the  basic  method  of  operation  remains  the  same.  The  subroutine  calculates 
the  valve  wall  temperature,  the  valve  fluid  temperature,  and  the  valve 
poppet  temperature. 


FIGURE  6.31-1 
TYPE  NO.  31  CHECK  VALVE 


6.31.1  Nath  Model 


A check  valve  has  a variable  geometry  orifice,  which  is  opened 
for  forward  flow  and  closed  for  reverse  flow.  The  thermal  math  model  for 
the  check  valve  includes  heat  transfer  to  and  from  two  connecting  line 
segments,  one  upstream  and  one  downstream.  Seven  nodes  are  considered: 
three  fluid  nodes,  three  wall  nodes,  and  one  poppet  node. 

Temperature  nodes  are  indicated  in  Figure  6.31-2.  For  forward  flow 
the  temperatures  of  the  upstream  line  segment  wail  and  fluid  nodes  are  TW(Ll) 
and  TF(L1),  the  temperatures  of  the  valve  wall  and  fluid  nodes  are  DT(TV)  and 
DT(TVF) , the  temperature  of  the  poppet  node  is  DT(TP),  and  the  temperatures 
of  the  downstream  line  segment  wall  and  fluid  nodes  aie  TW(L2)  and  TF(L2). 

Three  heat  balance  equations  are  written  to  solve  for  DT(TV),  DT(TVF) , and  DT(TP), 
using  the  valve  and  line  material  properties  and  dimensions,  the  atmosphere 
and  structure  temperatures  external  to  the  valve,  and  TW(L1),  TW(L2),  and  TF(L1). 
(Note  TF(L2)  = DT(TVF) , see  assumptions).  One  equation  is  a heat  balance  for 
the  valve  fluid  node.  The  second  equation  is  a heat  balance  for  the  valve 
wall  node.  The  third  equation  is  a heat  balance  for  the  poppet. 


Free 

Flow 


GP77*0085*3 


6.31-2 


The  first  equation  represents  three  modes  of  heat  transfer  relative 


to  the  fluid  node: 


1.  Heat  transfer  due  to  mass  transfer  into  the  valve  from 
upstream  of  the  valve 


BA  * (TF (LI)  - DT(l'VF) ) 
where  BA  is  equal  to  RMF(l)  *CPFN 

2.  convection  to  or  from  the  valve  walls  and  poppet 

B1  * (DT (TV)  - DT(TVF)) 

B2  * (DT (TP)  - DT(TVF))  respectively, 
where  B1  and  B2  are  convection  coefficients  and  are  equal 
to  UFWIL  * D(ASFV)  and  UFWIL  * D(ASFP) 

3.  heat  addition  due  to  a pressure  drop  across  the  valve 

BA  * DCAPT  * D(PERC)  = 3 .0/RH0IL*(P(Ll)  - P(L2 ))/ 
(CJ  * CPFN)  * D(PERC) *BA 


If  the  fluid  experiences  a substantial  pressure  d-op  across 
the  valve  (greater  than  100  psi)  then  there  is  heat  added 
directly  to  the  fluid  due  to  this  pressure  change. 

The  above  heat  transfer  terms  are  combined  to  produce  the  equation  for 
heat  balance  for  the  valve  fluid  node: 


MCp  * (DT(TVF)  - DT(TVF) 
DELT 


OLD 


) - 


+ 


BA* (TF (LI)  - DT(TVF) ) 
Bl* (DT(TV)  - uT(TVF)) 
n**(uT(TP)  - uT('i'VF)) 


+ BA*DCAFT  * D(PERC) 


(1) 


where  MCp  is  equal  to  FMASS  * CPEN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  the  valve  wall  node: 
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1.  conduction  to  or  from  the  upstream  and  downstream  line 


wall  nodes 

R3  * (TW (LI)  - DT (TV) ) 

R4  * (TW(L2)  - DT (TV) ) 

where  R3  and  R4  are  the  conduction  coefficients  are 
equal  to  1.0/(DXF(L1)/(ACP(L1)*C(L1))  + DXV  (ACV  * CV)) 

where  1=1  for  R3  and  2 for  R4 

2.  (a)  convection  to  or  from  the  fluid  in  the  valve 

B1  * (DT(TVF)  - DT(TV) ) 
where  B1  was  described  previously 

2.  (b)  convection  to  or  from  the  external  atmosphere 

B3  * (D (TA)  - DT (TV) ) 

where  B3  is  the  convection  coefficient  and  is  equal  to 
D(UAV)  * D(ASAV) 

3.  radiation  exchange  with  the  surrounding  structure 

C1P  * (D(TST)  - (DT(TVW)  + 460)  **4) 
where  CIP  is  the  radiation  coefficient  and  is  equal 

to  SIGMA  * SHAPF  * EPSION  * D(ASAV) 

These  heat  transfer  modes  are  combined  to  produce  the  equation  for  heat 
balance  for  the  valve  wall  node. 

* (DT(TV)  - DT(TV)  ) = B1*(DT(TVF)  - DT('I'V)  )+R3* (TW(Ll) -DT (TV) ) 

DELI  ULD 

+ R4*(TW(L2)  - DT (TV) )+B3* (D (TA) -DT (TV) ) (2 

+ CIP*D(TST)  - CIP*(DT(TV)+460. )**4 

where  MCp  is  equal  to  D(VMASS)  * CPVN 
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The  third  equation  represents  a heat  balance  for  the  poppet: 

(DT (TP)  - DT(TP)old;  = B2*(DT(TVF)  - DT(TP) ) (3) 

where  B2  is  a convection  coefficient  and  was  described 
previously,  and  MCp  is  equal  to  D(T  PMASS)*CPPN 
Equations  (1),  (2),  and  (3)  are  solved  for  the  appropriate 
temperatures . 

For  reverse  flow  as  shown  in  Figure  6.31-3  for  the  connecting  lines 
are  reversed.  Three  equations  can  also  be  written  to  solve  for  DT(TVF), 

DT (TV ) and  DT(TP) . 


0 


Flow 


FIGURE  6.31-3 

NODE  REPRESENTATION  FOR  REVERSE  FLOW 


The  first  equation  represents  two  inodes  of  heat  transfer  relative 
to  the  valve  fluid  node: 

1.  conduction  to  or  from  upstream  connecting  line 

Rl* (DT (TVF)  - TF (LI) ) 

where  Rl  is  the  conduction  coefficient  and  is  equal  to 

CF/(DXF(L1)/ACF(L1)  + DXV/ACFV  +RMFU)*DELT/  (ACVF 
**2*RH0IL) ) 
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2.  convection  to  or  from  the  valve  wall  and  poppet  nodes 
respectively 

Bl* (DT (TV)  - DT(TVF)) 

B2*(DT(TP)  - DT(TVF) ) 

where  Bl  and  B2  were  defined  previously 
The  above  heat  transfer  modes  are  combined  to  produce  the  heat 
balance  equation  for  the  valve  fluid  node  when  flow  is  by  the  valve. 

jjgJj  * (DT(TVF)  - DT(TVF)01D)  = B1*(DT(TV)  - DT(TVF)) 

+ Bl* (DT (TP)  - DT(TVF) ) (4) 

+ Rl* (TF(L1)  - DT(TVF) 

with  all  terms  previously  defend. 

The  second  equation  is  the  same  as  Equation  (2)  for  a heat 
balance  for  the  valve  wall  node. 

The  third  equation  includes  convection  between  the  poppet,  and 
the  downstream  line  fluid  node 

* (DT  (TP)  - DT(TP)qld)  = B2*(DT(TVF)  - DT  (TP) ) 

+ B5*(TF(L2)  - DT(TP)  (5) 

where  B2  was  defined  previously  and  B5  is  equal  to 

D(UAV)*ACF(L2) 

Equations  (2),  (4),  and  (5)  are  solved  for  the  appropriate 
temperatures . 

A thermal  model  of  the  heat  transfer  terms  for  the  check  valve  with 
forward  flow  is  shown  in  Figure  6.31-4. 
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B4*DCAPT 


EXIT 

FLUID 

TF(L2)= 

DT(TVF) 


BN  = CONVECTION 
B4  = FLOW 
MnCp  = STORAGE 
CIP  = RADIATION 
B4*DCAPT  = GENERATION 
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The  hydraulic  math  model  used  to  calculate  the  steady  state  pressure 
drop  assumes  a straight  line  flow/pressure  drop  characteristic  between  the 
cracking  pressure  and  the  Cully  open  position.  The  cracking  pressure  drop  is 
set  equal  to  the  inlet  area  divided  by  the  spring  preload  and  the  slope,  DT(5), 
is  set  to  the  change  in  pressure  required  to  fully  open  the  poppet  divided  by 
the  flow  at  that  condition  which  is 


DT(4)  = D(l)*CV*SQRT(DT(2)*AHO(  )/2.0)  (6) 

where  D(l)  is  considered  to  he  the  maximum  yalve  area. 

The  orifice  resistance  at  the  fully  open  position,  is  used  when  the 
flow  exceeds  DT(4).  Figure  6.31- 5 shows  graphically  how  this  is  done. 


FIGURE  6.31-4 
THERMAL  MODEL 
FORWARD  FLOW 
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Pressure 


FIGURE  6.31-5 


. ':VAL31  STEADY  STATE 


i>: assure  drop  characteristics 


6.31.2  Assumptions  - 

1.  There  is  no  conduction  between  the  poppet  and  the  walls  since  there 
is  little  contact  area  and  the  poppet  is  completely  submerged  in 
oil 

2.  The  interface  conductance  between  the  valve  and  line  walls  is  infinite 

3.  The  atmosphere  and  structure  temperatures  remain  constant 

4.  The  emissivity  of  the  wall  material  is  a constant,  .3 

5.  No  friction  is  generated  when  the  poppec  moves. 

6.  The  fluid  exiting  from  the  check  valve  is  equal  to  DT(TVF) 

7.  There  is  complete  mixing  of  the  fluids  in  the  fluid  volume. 
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6.31.3  Computational  Methods 


SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized,  'the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and 
raised  to  the  fourth  power,  and  the  default  values  are  assigned. 

SECTION  2000 

This  section  is  called  from  TLEGCAL  via  COMPE  using  CON  It  1, 
if  the  check  valve  is  connected  so  that  the  free  flow  direction  is  the  same  as 
the  positive  flow  in  the  leg,  or  CON  it 2 if  the  valve  is  in  backwards.  When 
the  valve  is  closed 

L ( 3)  = 1 and  QS  = -1  or  ((3)  =0  and  QS  = 1 

The  value  Lmpedance  is  set  at  1.0E0,  which  is  essentially  an  open  circuit. 

When  the  valve  is  fully  open  (ENTR  = 1,  QS  - 1,  or  IENTR  = 2 , QS  - -1 ) 
plus  Q >DT(4) , the  valve  orifice  impedance  DT(3)  is  multiplied  by  the  QA**2 
term  to  obtain  a pressure  drop  used  in  TLEGCAL. 

With  the  same  basic  conditions  but  with  Q1  > DT(4)  the  valve  characteristics 
are  assumed  to  be  a constant  pressure  differential,  plus  a linear  flow/pressure 
gain. 

When  the  flow  guess  is  negative  for  CON  It 2 the  constant  differential  becomes 
a pressure  rise. 

The  three  modes  of  the  check  valve,  closed,  partially  open  and  fully  open 
will  show  up  in  the  leg  as  a pressure  drop  or  rise. 

SECTION  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calculated. 
The  flow  direction  is  determined.  (The  program  is  set  up  with  the  flow  entering 
connection  line  one  (LI)  and  lca\ ing  through  connection  line  two  (L2) . During  the 
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calculation  the  flow  direction  is  checked.  If  the  flow  has  reversed  flow 
direction,  the  program  reassigns  connection  numbers  so  that  the  flow  still 
enters  connection  line  one).  Some  coefficients  are  then  recalculated  if  the 
flow  is  reassigned.  A 3x3  matrix  is  loaded  and  the  mathematical  equations 
are  solved  for  DT(TVF),  DT(TV)  and  DT(TP)  and  stored  in  the  B computational 
array.  The  calculated  values  are  assigned  to  their  proper  storage  locations 
and  the  boundary  conditions  are  assigned  to  arrays  in  COMMON  /TRANS/. 

6.31.4  Approximations 

1.  The  distance  from  the  valve  wall  node  to  the  interface  of  the  valve 
and  tube  wall  is  approximated  by 

DXV  = (D (VLENGTH) /2 . 0) 

2.  The  cross  sectional  area  of  the  valve  walls 


ACV  = D (VMASS) / (D (VENGTH) *RH0V) ) 


3. 

The  check  valve  wall  is  treated  as  one  node,  thus 
valve  is  at  the  same  temperature 

the  entire 

4. 

The  shape  factors  is  constant  at  .96  as  described 
of  this  manual. 

in  Section  2.0 

6.31.5 

Limitations  - Not  applicable. 

6.31.6 

Variable  Listing 

Variable 

Description 

Dimension 

A(  ) 

Computational  Array 

— 

AAA 

Dummy  Variable 

— 

ACFV 

Cross  Sectional  Area  of  the  Fluid  in 
value 

IN2 

ACV 

Cross  Section  Area  of  the  Valve  Wall 

IN2 

D(ASAV) 

External  Surface  Area 

IN2 

D(ASFP) 

Poppet  Surface  Area 

IN“ 

D(ASFV) 

Internal  Check  Valve  Surface  Area 

IN2  IN2 
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VARIABLE 

DESCRIPTION 

DIMENSION 

B(  ) 

Computational  Array 

— 

Bl,  B2,  B3 , B4, 
B5 

Dummy  Variables 

— 

CIP 

Radiation  Coefficient 

WATTS /°r4 

CJ 

Mechanical  Equivalent  of  Heat 

IN-LB  /WATTS-SEC 
m 

CPPN 

Specific  Heat  of  Check  Valve 

WATTS-SEC/  LBm-°F 

CPVN 

Specific  Heat  of  the  Poppet 

WATTS-SEC/ LB  ~°F 
m 

CV 

Conductivity  of  the  Valve 

WATTS/ IN-6 F 

DCAPT 

Heat  Added  Due  to  Pressure  Drop 

°F 

DDD 

Dummy  Variables 

— 

DXV 

Distance  from  Valve  Wall  Mode  to 
Line  Wall  Interface 

IN 

EPS ION 

Emissivity  Factor 

— 

FMASS 

Fluid  Mass 

LB 

m 

D(ITF) 

Initial  Fluid  Temperature 

°F 

D(ITV) 

Initial  Valve  Temperature 

°F 

KTYPE 

Dummy  Variable 

— 

D(MTYPE) 

Valve  Material  Type 

— 

NTYPE 

Dummy  Variable 

— 

D(PERC) 

Percentage  Heat  Added  to  Fluid  Due  to  AP 

— 

PMASS 

Fluid  Mass  in  Valve 

LB 

m 

D(PTYPE) 

Poppet  Material  Type 

— 

RHOIL 

Fluid  Density 

LBm/lN3 

RHOV 

Valve  Wall  Density 

LB  /IN3 
m 

RMF,R3,R4 

Dummy  Variables 

— 

SHAPF 

Shape  Factor,  Valve  Walls  to  Surroundings 

— 

SIGMA 

Stefan  - Boltzmann  Constant 

WATTS/IN2-0 R4 

D(TA) 

Surrounding  Ambient  Temperature 

°F 
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Variable 

Description 

Dimension 

TEMPI, TFO, 
TFOO 

Dummy  Variables 

— 

DT(TP) 

Poppet  Temperature 

°F 

D(TPMASS) 

Poppet  Mass 

LB 

in 

D(TST) 

Surrounding  Structure  Temperature 

"IT 

1 

DT(TV) 

Valve  Wall  Temperature 

°F 

DT(TVF) 

Fluid  Temperature  in  the  VaJve 

°F 

D(UAV) 

Heat  Transfer  Coefficient  - External  to 
Valve  Wall 

WATTS /IN2-0 T 

UFWIL 

Heat  Transfer  Coefficient  - Fluid  to  Valve 
Wall 

watts/in2-°f 

D(VLENGTH) 

Valve  Length 

IN 

D(VMASS) 

Valve  Mass 

LP 

m 

D(VOLl) 

For  variables 

Volume  of  Fluid  Inside  Valve 
in  common  refer  to  Paragraph  3.3. 

IN3 
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6.31.7  -SUBROUTINE  LISTING 


3'K3  l.’OUTIYi,  TGVAL31  (0,DY,Oi),L) 
0*  * * * ;uvi3(-.n  august  5,  1075  **** 

Dl.ii.'JSIOS  />(  1)  , DT ( L)  ,1.  A(  1 ) , L(  1) 
POIJPL,-.  PKLCI3I0G  DO 


C 


+ 


+ 

+ 


+ 


CO.I.IO*:  /1VANVV(  300)  ,C(  300)  ,C(  3 00)  ,TO(  300)  ,Tw(  300)  ,TP(  300)  , 
ACF(  300)  , AC.m(  300)  , UXF(  300)  ,TI.,L,  Ol.LT,  PI , . 1 L I H,,\l  L 
CO.. .10, 1 /CQ1.P/LrV')L(  00)  ,UC(  90)  , ”Tu i P(  9 9)  , IUO,  I*.  -T.:,  I.J!  I, 

CO.I..O-!  /.STEADY/’  ii(00)  , ?Dpn)  , ?LX(90)  , i‘*JLl.G(  90)  ,'-L(90)  , 

OA,?J,  71,  P’JP,  PI  0//F , jL  , GLi-G,  UC  PI , ThU.i , LLG'. , ICO  I 
, I .IV,  I IX,  IN/.  ,9LP(99)  ,M0t..I{  '*0)  , NbLL.'i  (90)  , I LI  GAP(OQ)  , I L.l.  3{  1 000) 
CO  i.iOY  /F LinO/ATPIiL3,CF,CPI  .1,  PTh.IP,  Pi50P(  13,3) 

OI..LU3ION  A(  3,  3)  ,’J(  3)  ,»!(  2)  , Pi.F(  2) 

IuTI.GLK  V'JLl  , A 3 F P , As  F 7 , A UP.  ' . UA  V,  TP.-i  AoG , V..A33,  TA, T3T,  t YF  , IT  V 
, TV , .TV PL,  PTY->L,  VLlN'JTO,  PLKC, TP,  TVF 
I?  ARP  AY  VA  PI  TOLLS 


DAT A . .TV PL./ 7/  , PTY PL / 3/  , V.  iAGS/ 9/  , T P; . A3S/ 1 0/  , VOL  1/ 1 1/ 

+ , VI, I,  I 3T.J/ 1 V , ASF ?/ 1 3/  , AGFV/ 1 4/  , AGA V/ 1 5/  , .JA 7/ ?.  6/  , Pu  PC/ 1 7/ 
+ ,TSY/1  V,  I’A/IO/,  I l'F/  2 0/  , I TV/  2 1/ 

C LT  A PLAY  VA  PI  A3  LI  3 

0\TA  TVF/ 7/  , rV/P/,TP/0/ 

DATA  JIGGA/.  340b-ll/,3lJAPF/.96/,LP3IuV«  3/,CJ/9. 3 V 
C VOLl  =VOLU.iL  OF  FLUID  I.iiSIOL  VALVL 

v ASPP  =FU«:FACL  AKi.A  FLUID  TO  POPPLT 

C AbFV  =3U:\F ACL  Ale- A FLUID  TO  VALVL  ./ALL 

C ,,TYPl  =. i AT h.LI  AL  7Y?L  OF  VALVL  CAUL 

C P ?Y PL  =.lATb!\I  AL  IYPl  OF  PI  ‘-’PL  Y 

C 73 A3 3 =.  i.AoG  OF  7 LA VI  L'lCLUDI’.G  POPP,  T (L.5.) 

C D(  1)  = I TIM  P JAL  OIA.a  T.„i:  ( I ILsT) 

C Q(  ? ) = I mTT  R1IAL  DIA  .LTLK  (OUTLlT)  DOT  IiJ  UsL 

C D(  1 0)  = POP  PL.T  ..A  33 

C 0(  4 ) =3  Pp I JG  O'!  iJTA  IT 

C 0(5)=.. AX  POP  Ft,  2 01  jPLACL.il/IT 

c n(  r>)=3P,'<T.;j  p,g.load 
C DT(  1 )=COISTA'-!T  .'TOP A 3L 

C DT(  ) =CCYST  A IT  3TJKAGL 

C DT ( 3 ) = S PORAGL  FOR  FULLY  OPLil  OPIFICL  COt.F  . 

C DT(4)=  3 TOP AG L "‘j,<  PPtVIUUb  POPPlT  VLLOCITY 

C DT(  5 ) = 3TOr.  AGl  FOr  PPlVIOJG  POPPLT  ACCL  LIAA  TIGS 

C D7(S)=  oiO^AJL  FOP  Pi-,  i, VI  JUG  POP'-'L.?  i I'j'i 

IF ( I lv\ IP ) 3000,2000, 3000 
C <•**  1000  SbCTIOY 
K00  CO'lTI-IUl. 

C INITIALIZING  YL.4PLPA7UHL3 


L 1 = L ( 1 ) 

L2=L(  2) 

D r ( TVF ) =D( ITF ) 
DT(  TV ) = D ( I TV) 
DT( T ? ) = D ( I TV) 
Pp ( LI ) -"- D(  ITF) 
TF ( L 3 ) = D ( ITF) 


6.31-13 


6.31.7 


(Continued) 


?C(  1,1  ) = D(  I TV) 

L'C(  L 2 ) = D ( HV) 

:ro=o( itf) 

D(  r:>?)  = ( D(TST)  + 4*S0.  ) **4 

IF(  0(  HAV)  . 1 ?.  0. 0)  0(  UV7)  = . 0069 

0( 1 )=D( 1 ) **2.*PI/4. 

0T(  1 ) =D(  6)/0(  1 ) 

nv(  “>)  = D(  4 ) *!>(  5)  /r>(  1 ) + OV(  1 ) 

L{  3 ) = 0 
Rt  riMN 

C dLCTIO.!  FOJ  oFlV/Y  yTYTL  CALOJL  Yi'IU.'I 

2000  CO  } 7i , ;(Jl 


nT(  4 ) =D(  1 ) * . 6 5* T(  0T(  2)  *RHO(  TF(  1,(11),  PUP)/2.0) 
or < r')  = (:)T(  2)-ov(  l ) ) / d r ( 4 ) 
ry;(  3)  = ( o( tf ( l(  i ) ) , pup)/2.o)/(d(  l)  *.C3)  **2 
I?(  ICOm.  Ji,.  1. ) CO  ro  1600 

r !t  «/AL7i.  Io  CO  J 'lCT'  0 CO  IVi,  4TIO -JALY  vl!L'J  COO  U Ii 
L(  3 ) = 1 


T^Ob.lO.  1.  ) JO  To  1700 
0"  i ' 16  60 

1°).1  I !•' ( ICO 4.  0.2)  JO  TO  1000 

t " ( i.(  3)  ..a  . o)  jo  to  non 

6.1  VM.VL  r>  COT  tCTt.0  JAC.lwVDL  J'.lL.i  COi  - 2 I.S  not;) 
!?('.»-  LF.  1.0)  '•.)  I*v  1700 
Tu*  VALVt.  l : 

1 6 ;;  :>.!■*=  \ . oi  o 


r-i  TU1-  -l 

1 70  0 IK  ( 0A  .1,1  ,ri(.i))  J,;  yj  1 ">00 

c 7\lvi.  ij  fully  hyj 

::( r>)  = o(  5) 

r>’j'.j=  T'jo-OF*  ''  \*  * 2*  i ?(  3 ) 
i-upj;;': 


£ » V * i- . 


c 

T.ii . p 

IT'.; 

I : 

Li 

;i\‘i 

1. 

’ ru 

LL  OPt 

P0", 

p jp=  ^ 

UP- 

•) 

i’(  1 

> ‘ 

f N,  ' _ r\  *»  * ' * r. 

1*( 

6) 

(J*  * A * A 

* L l / i \ 

r i LLi  •; 

'S  L. 

r 

; i.i  i 

:\2J  o ..j 

I A 

I’ll 

?P  jC'-’ 

. * At  * k k 

n 

; ir.ii 

F 1 

V 

1 • 

1 

V.-  2 Or.  "• 

J 

ILL 

;.c\l  c* 

1 * . i ,\6 

1 HO 

POP 

1 6 3 

1 

3)0' 

C j i I 

3Ui. 

L 1 = L ( 1 ) 

L2=L(  2) 

JTYFt-i)(  /JY.J  ) + . 001 
0rV'rX  = 0(  PTY.O  ) K ooi 
CV=?rU”(  YTYPi  , 3 ) 
CP=P'OP(  .v’TYPt. , 3) 


CPP-’=PrUP(  \TY*'L  , 1 ) 
CP7  ‘=’>,YyP(  JTYP-I.,  1 ) 
! H J?=Pf  OP ( V>l,  2) 
FilOV=P!vOP(  KTY’->L,  2) 
TFO=TF ( LI ) 


oo  Y 

>Jt  c 
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6.31.7  (Continued) 


OyV=(D(VLi,:.OT.!)  fl  .0) 

ACF7=PI*( D(  1 ))  **2/4.0 
A CV=  M '/’  t A.i o ) / ( 0-.!OV*D(  -/Ll.I'fVP.I ) ) 

N*nn,=‘m.  4*fo«  .>(  3i  ( rvp) , p(  l?.)  ) 

I F iAJS=n(VOLl)*.-f(iOll. 

AAA=ACPV 

00')=o  )kr(  AAA* 4 . / PI ) 

Ur.<IL=:]|'w(  AAA,  000,  A ’•‘M  M L2)  ) ,DT(  i'VF ) , P(  L2)  ) 

?l  = ">(  L2 ) 
n . iPl=TC( Ll) 

» .'•(  l )=aa  mm Li) ) *.<noiL 

F..P(  2 ) -A  AJ  ( M L2  ) ) * RiiOI  L 
M =UF  v 1 1 *C(  A •> F V ) 
n2=UI'«v  I L*  D(  V.?>?) 

A 3=D(  OAV)  *->(  ASAV) 

R ( 1 ) = 0 . 0 
’5=0.0 

I F ( C ( L l ) . G’l . 0 . 0 ) C'J  TO  3300 
L1=L( 2) 

L2=  L( 1 ) 

R(  1 )=CF/(  DVF(  Ll )/ ACF(  Ll ) + DX7/ACF7+!<.,F(  1 ) *01-  Ll'/  ( ACI-V* * 2 * A. 101 L ) ) 
35=0(UAV)*\O'(  L2) 

3 3on  c’O'ITI.'inL 

3000  ip(  -»( r.i > . lt. o.o)  r< . r ' 2 ) = n . o 

A 1 ) *CPP  ’ 

L 4 = 1 . 0/{  DXiM  Ll )/(  A.C  . ( Ll  ) *C(  Ll ) ) +0X7/ ( ACV*CV)  ) 

3 = i . 0/  ( D X F ( L2)/(  AC  .( L2)*C( L2) )+DX7/(  ACV*CV)  ) 
ci  p=;. 1 5.. a*:,i1APF*l  Polo  ;*  o(  aaa v) 

DC  A r),r=  ( 1 .O/Pi'CTL)  * A r.  J ( PI  Ll )-?(  L3)  )/(C.J*CPPfi) 

I F ( ? ( F l ).1M  0.0)  DC  A PT=  0 . 0 
Ml  / l ) =F.-  A,  ,_.*C  PR.  i/ u lLT+  A 1+A  2+’’  ( 1)  + M 
A ( 1 , 2 ) =-A l 
M 1 / 3 ) = - \ 2 
M 2 , 1 ) = - M 

A(  2, 2)=D(  ) *CPV  ;/Dt  LI’ rA  1+A 3+2  4+1:3 

A { 2 , 3 ) = 0 . 0 
•M  3,1)  =-A  2 
A ( 3 , 2 ) - 0 . 0 

A ( 3 , 3 ) = D ( rP  :AAA> ) * C P ?’•'./ Du  LT+ A 2+  3 5 
M 1 )=!\-  A:»,**CPP.J*DT(  I VP) /Dt  L l’+(  A4+.M  1 ) ) *0  P(  Ll)  + 

+ DC  AP  \ 4 *D(  ?L  ,<C ) 

D ( 2 ) = D(  7,.  MS)  *007  :*.OT(  I v ) /OlLT-KU*  r./(  Ll + L 3*  ( L2)  + 

+ A 3 * D ( T \ ) +CI  »*•';(  . .jA’)-CX  r'*  ( ( DT ( TV)  + 400.  )**•!)  + ( 1 . -F.(  ?LnC  ) ) * 

+ A 4 * DC  A 1 :* 

M 3 ) = o ( d'a.al:;)  *cpp-:*Dr(  rp)/oi.Lr+35*?F(  L2) 

CALL  5 1. • J LT ( A , 3,1*  «W') 

TP(  L1)=?FD> 
r-'o:>?!M L2 ) 

•r-ML2)=C(  ] ) 

I ’ 1 . Cl..  .0.0)  r F ( L 2 ) =TFOO 
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6.31.7  (Continued) 


”’C(  LI  )*=.?(  2) 
”’C ( L?)=3i  31 

n;>(  rvp)=3(  i ) 
TV ) =rt ( 2) 
'vi’(  tp)=:m  3) 
Pl.TJKN 

i/4!) 
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6.41  SUBROUTINE  TREST41 


TREST41  Simula res  a fixed,  two-way  orifice  restrictor  with  two 
connecting  lines  as  sketched  in  Figure  6.41-1.  The  same  discharge 
coefficient  is  assumed  for  flow  in  either  direction  so  that  the  unit  may 
be  installed  backwards,  i.e.,  either  end  may  be  the  entering  line. 

This  subroutine  calculates  the  temnerature  of  the  fluid  in  the 
restrictor,  and  the  temperature  of  the  restrictor  wall. 


0 


Flow 


FIGURE  6.41-1 

TYPE  NO.  41  ORIFICE  RESTRICTOR 


6.41.1  Math  Model  - The  thermal  math  model  for  the  restrictor  includes  heat 


transfer  to  and  from  two  line  segments,  one  upstream  and  one  downstream. 

Six  nodes  are  considered:  three  fLuid  nodes  and  three  wall  nodes  (as  shown 

in  Figure  6.41.2).  The  temperatures  of  the  upstream  line  segment  wall  and 
fluid  nodes  are  TW(L1)  and  TF(LJ),  the  temperatures  of  the  restrictor 


Upstream  Restrictor  Downstream 

Line  Segment  Line  Segment 


FIGURE  6.41-2 

RESTRICTOR  AND  CONNECTOR  NODE  REPRESENTATION 

OP77-OWS-8 


wall  and  fluid  nodes  are  DT(LTC)  and  DT(LTF),  and  the  temperature  of  the 
downstream  line  segment  wall  and  fluid  nodes  are  TW(L2)  and  TF(L2).  Two 
heat  balance  equations  are  written  to  solve  for  DT(LTF)  and  I)T(LTC), 
using  the  restrictor  and  connecting  line  material  properties  and  dimensions, 
the  atmosphere  and  structure  temperatures  external  to  the  restrictor,  and 
TW(L1),  TW(L2) , and  TF (LI) . (Note:  TF (L2)  = DT(LTF),  see  assumptions). 
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One  equation  is  for  heat  transferred  to  and  from  the  restrictor  fluid 
node.  The  other  equation  is  for  the  heat  balance  for  the  restrictor 
wall  node. 

The  first  equation  represents  four  modes  of  heat  transfer  relative 
to  the  restrictor  fluid  node: 

1.  conduction  to  and  from  the  upstream  line  segment  fluid  node 

R1  * (TF(L1)  - DT(LTF) ) 

where  R1  is  the  conduction  coefficient  between  the  fluids, 
and  is  equal  to  CF/(DXF(L1)/ACF(L1)  + DXR/ACFR  + 

RMFL1  * DELT/(ACFR**2*RH0IL)) 

2.  convection  with  the  restrictor  wall  node 

B1  * (DT(LTC)  - DT(LTF)) 

where  Bl  is  the  convection  coefficient  between  the  fluid 
and  the  wall  and  is  equal  to  UFWIL*ASFR 

3.  heat  transfer  due  to  mass  transfer  into  the  restrictor 
node  from  the  upstream  of  the  restrictor  node 

MC  p* (TF (Ll ) -DT (LTF ) ) 

where  MCp  is  the  flow  rate  and  is  equal  to  Q(L1)*RH0IL*CPFN 

4.  heat  transfer  due  to  a pressure  drop  across  the  orifice 

MCp*DCAPT*D(PERC) 

where  DCAPT  is  the  temperature  rise  due  to  a pressure  drop 
and  is  equal  to  (1.0/RHOIL)*(P(L1)  - P(L2))/(CJ  * CPFN) 

These  heat  transfer  terms  are  combined  to  produce  the  equation  for  heat 
balance  for  the  restrictor  fluid: 

MCp (DT (LTF) -DT (LTF)  ) = Rl* (TF (Ll) -DT (LTF)+B1* (DT (LTC) -DT (LTF) )+ 

MCp* (TF (Ll) -DT (LTF) )+MCp*DCAPT*D (PERC) 

where  MCp  is  equal  to  DT(RFM)*CPFN. 
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The  second  equation  represents  four  nodes  of  heat  transfer  relative 
to  the  restrictor  wall  node: 

la.  conduction  to  and  from  the  upstream  line  segment  wall 

R3  * (TW(L1)  - DT(LTC)) 

where  R3  is  the  conduction  coefficient  and  is  equal  to 
1 . 0/ (DXF (LI) / (ACW(L1)*C (LI) )+DXR/ (DT (ACWR)*CR) ) 

lb.  conduction  to  and  from  the  downstream  line  segment  wall 

R4  * (TW(L2)  - DT(LTC)) 

where  R4  is  the  conduction  coefficient  and  is  equal 
to  1.0/ (DXF(L2) ! (ACW(L2)*C(L2) )+DXR/ (DT (ACWR)*CR) ) 

2a.  convection  to  and  from  the  restrictor  fluid 

B1  * (DT(LTF)  - DT(LTC)) 

where  B1  is  the  convection  coefficient,  defined  previously 
2b.  convection  to  and  from  the  external  atmosphere 

B2  * (D (TA)  - DT(LTC)) 

where  B2  is  the  convection  coefficient  and  is  equal  to 
D(UAR)  * D(ASAR) 

3.  radiation  exchange  with  the  surrounding  structure 
CIP*(L(TST)~(DT(LTC)+460.0)4) 
where  CIP  is  the  radiation  coefficient  and  is  equal  to 
S IGMA*  BP  S ION*  SHAPF*D  ( ASAR ) 

These  heat  transfer  terms  are  combined  to  produce  the  equation  for  heat 
balance  for  the  restrictor  wall  node: 

Men  (DT(LTC)-DT(LTC) , ) = R3* (TW(L1) -DT (LTC) )+R4* (TW(L2) -DT (LTC) ) 

UIjU 

DKLr  + Bl* (DT (LTF)-DT(LTC) )+B2* (D (TA) -DT (LTC) ) (2) 

+ C1P*D  (TST ) -Cl  P*  (DT  (LTC  )+4  60.)  **4  ) 

where  MCp  is  equal  to  RMASS*CPWR 
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A thermal  model  of  the  above  heat  transfer  terms  for  the  restrictor 
is  shown  in  Figure  6.41-3.  Equations  (1)  and  (2)  are  solved  slmuJ taneously 
for  the  fluid  and  component  wall  temperatures. 


MCp*I)CA1’T 


INLET 

FLUID 

TF(L1) 


l'W  (LI)  #— 


FIGURE  6.41-3 
THERMAL  MODEL 


EXIT 
FLUID 
TF(L2)= 
DT(LTC ) 


TW(L2) 


BN  = CONVECTION 
RN  ° CONDUCTION 
Mj^CP  » STORAGE 

MC£>  = FLOW 

CIP  = RADIATION 

MCp*DCAPT  = GENERATION 


In  the  hydraulic  math  model,  the  basic  equation  for  flow  through 
an  orifice  is  used  to  compute  the  orifice  pressure  drop. 

AP  = Q1**2*RH0(  )/ (D(13)*D(12)**2*2) 


(3) 


where  Q1 


P.KO 

D (13)  = 

D'.1)  = 

AP 


flow  (CIS) 

2 4 

fluid  density  (LB-SEC  /IN  ) 
orifice  area  (IN**2) 
discharge  coefficient 
pressure  drop  (PSI) 
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6.41,2  Assumptions  - The  following  assumptions  are  made  to  write 


equations  (1)  and  (2)  discussed  in  Section  6.41.1. 

1.  The  temperature  of  the  fluid  leaving  the  restrictor  is  equal  to 
the  restrictor  fluid  node  temperature,  DT(l.TF) 

2.  The  pressure  drop  across  the  restrictor  orifice  raises  the  tempera- 
ture of  the  restrictor  fluid,  not  the  temperature  of  the  restrictor 
wall. 

3.  The  temperatures  of  the  atmosphere  and  structure  surrounding  the 
restrictor  are  constant. 

4.  The  emissivity  of  the  wall  material  is  constant,  (.3  for  steel) 

5.  The  interface  conductance  between  the  restrictor  wall  and  line  walls 
is  infinite. 

6.  The  discharge  coefficient  is  considered  the  same  in  either  flow 
direction, 

7.  Complete  fluid  mixing  in  the  restrictor  volume. 
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6.41.3  Computation  Methods 


SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized;  the  external  structure 
temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised  to 
the  fourth  power,  and  the  default  values  are  assigned. 

The  input  orifice  diameter  D(13)  is  converted  to  an  area  and  a steady 
state  orifice  equation  constant  is  calculated  using  the  formula: 

D (13)  = l./((D(13)*D(12))**2*2) 

SECTION  2000 

The  pressure  drop  through  the  orifice  is  computed  using  equation  (4) . 

PUP  = PUP  - Q1*QA*RH0(TF(L1)) ,PUP)*D(13)  (4) 

where  PUP  = upstream  pressure 

QA  = absolute  value  of  Q1 

SECTION  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  cal- 
culated and  the  flow  direction  is  determined.  (The  program  is  set  up 
with  the  flow  entering  connection  line  one  (LI)  and  leaving  through  connection 
line  two  (L2).  During  the  calculation  the  flow  direction  is  checked.  If 
the  flow  has  reversed  flow  direction,  the  program  reassigns  connection 
numbers  so  that  the  flow  still  enters  connection  line  cne).  Some  coefficients 
are  then  recalculated  if  the  flow  is  reassigned.  A 2x2  matrix  is  loaded 
and  the  mathematical  equations  are  solved  for  DT(LTF)  and  DT(LTC)  and  stored 
in  the  B computational  array.  The  calculated  values  are  assigned  to  their 
proper  storage  locations  and  the  boundary  conditions  are  assigned  to  arrays 
TC  and  TF  in  COMMON  /TRANS/  for  distribution  throughout  the  entire  program. 
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6.4L.4 


Approximations 


L.  The  shape  factor  is  0.96  (described  in  Section  2.0). 

2.  The  coefficient  for  heat  transfer  between  the  wall  and 
the  external  atmosphere  is  assumed  equal  to  .0069, 
if  not  input  by  the  user. 

6.41.5  Limitations 

The  subroutine  is  limited  to  fixed  two  way  restrictors  having  the 
same  discharge  coefficient  for  flow  in  either  direction. 

6.41.6  Variable  Listing 


Variable 

Description 

Dimension 

A(  ) 

Computational  Array 

— 

AAA 

Dummy  variable 

— 

ACFR 

Cross  sectiona]  area  of  the  fluid  in 
restrictor 

IN2 

DT(ALWR) 

Cross  sectional  area  of  the  restrictor 
walls 

IN2 

D (ASAR) 

Surface  area  surrounding  atmosphere 
to  case 

IN2 

ASFR 

Surface  area  of  the  fluid  and  wall 

2 

IN 

A1,A2 

Dummy  variables 

— 

B(  ) 

Computational  array 

— 

BL,B2, 

B3.B4 

Dummy  variables 

— 

CIP 

Radiation  coefficient 

WATTS /°R4 

CJ 

Mechanical  equivalent  of  heat 

FT-LB  /WATTS-SEC 
m 

CPRW 

Specific  heat  of  the  wall 

WATTS - SEC / LB - 0 F 

CR 

Thermal  conductivity  of  the  wall 

WATTS/IN-°F 

Cl 

Dummy  variable 

— 
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Variable 

Description 

Dimension 

DCAPT 

Heat  added  to  fluid  due  to  pressure 
change 

°F 

DDD 

Dummy  variable 

D(DIA) 

Orifice  diameter 

IN2 

DXR 

Distance  from  wall  node  to  interface 
with  the  connecting  line  segment 

TN 

EPS ION 

Emissivity  factor  for  the  walls 

— 

TERROR 

Dummy  variable 

— 

D(ITC) 

Initial  temperature  of  the  wall 

°F 

D(ITF) 

Initial  teuperature  of  the  fluid 

“F 

DT(LTC) 

Restrictor  wall  temperature 

°F 

DT(LTF) 

Restrictor  fluid  temperature 

°F 

U,L2 

Addresses  of  ieg  and  component  data 

— 

hTYPE 

Dummy  variable 

— 

D(PERC) 

Percentage  heat  DCAPT,  added  to  fluid 

— 

DT(RFM) 

Mass  of  the  fluid 

LB 

m 

RHOIL 

Fluid  density 

LB  /IN3 
m 

RHOR 

Density  of  the  restrictor  wall 

LB  /IN3 
m 

D(RLENGT) 

Length  of  restrictor 

IN 

D(RMASS) 

Mass  of  the  restrictor 

LB 

RMFL1 

Entering  mass  flow  rate 

LB  /SEC 
m 

RMFL2 

Exiting  mass  flow  rate 

LB  /SEC 
m 

D(RTYPE) 

Material  type 

— 

Rl ,RJ,R4 

Dummy  variables 

— 

SHAPF 

Shape  factor  walls  to  surrounding  structure 

— 

SIGMA 

Stefan-Boltzmann  constant  for  radiation 

WATT S/ IN 2 -R4 
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Variable 

Description 

Dimension 

DT(SPMAFR) , 
DT(SPMAR) 

Dummy  variables 

— 

D(TA) 

Surrounding  atmospheric  temperature 

°F 

D(TST) 

Surrounding  structure  temperature 

®F 

D(UAR) 

Heat  transfer  coefficient  (surrounding 
atmosphere  to  walls) 

WaTTS/TN2-°F 

UFWIL 

Heat  transfer  coefficient  for  fluid 
to  walls 

watts/in2-°f 

D(VOLF) 

Volume  of  fluid  in  restrictor 

IN3 
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n o o n o n n o o 


6.41.7  Subroutine  Listing 


.)l>  VOiJTI  sc.  YRtGI'll  ( D,  DT,  DO,  L) 

C ***  RLVI SLD  ADJUST  20,1  076  *** 

DLiLUSIOG  L(  1)  ,DT(  1 ) , OD(  1)  , L(  1) 

CO-OlOl  AV.VWLM  300)  ,0(  300)  ,C(  300)  ,TC(  300)  fTW(  300)  ,TF(  300)  , 
+ ACF(  300)  , A Co { 300)  ,OvF(  300)  , TTilL,  OLLT,  PI  ,wLI.Jl,  -ILL 
CO.I..OO  / CO.  1 P/  L I Y Pt.  ( 9 9 ) ,UC{ 99) , K‘i’b.iP(  09)  , 1 9D , I bDTK , I .Ji.L 
CO.uiO-.  /STEADY/ r>:J(9(j)  ,0N(9Q)  ,PbX(90)  ,»OLLG(90)  ,OL(90)  , 

+ ?A,  OS  , 01 , PUP , PDOv.S  , UMOOL  , ULLG, UCPU  , T b K. . , 

+ Li'.GA,ICOr;,I.N’V,IMX,l!vlZ,MUP(n  ) , NDvv.'l  ( 9 0 ) ,MLL1...(90)  , 

+ 1 Lb.GAO(  9 9 ) , I LLO(  1900) 

CO  i.,00  /FLU I O/.VfPPLS,  CP,  C°F  1,  FTiMP,  PROP(  13,3) 

I TIM  Oh!';  *JA i\ , ToT , I'A , VOLF  , ASAR , ItC  , ITF  , R. iASS 
+ , SP..AFR,  SP.iAO,  RLbOGT,  PLRC, ACwL,  P.F  -I , RTYPt, , 01 A 
01  iLOCIOH  A(  2, 2)  , -3 ( 2) 

C D ARRAY  VAPIMLl-.S 

DATA  19  J-YPl/I/  , R.iASS/2/  , OLhMGT./  4/  , VOLI-/3/  , ASA  9/  5/  , 

+ JAP  /6/  , Pt  PC/ 7 / , 7ST/ ?■/  , TA/ 9/  , I’PF/  1 0/  , 1TC/1 1/ 

'' ATA  0IG.1A/ . 3 49L-1 ) / , SilAPF/  . 9 6/ , LPG  IO>'/  . 3/ 

+ ,0  7/9.9=,/ 

0 l)T  ARRAY  VAPTA3LLS 

HA  PA  LTC/ 1 / , L IT/  2/  , S P.;AF  0/  3/ , S P. . A 0/  4/  , AC.-»  <</  S/  , RF.  i/  6/  , 

+ OIA/7/ 

IP{ IhUPR)  1009,2900,3000 
non  couTisuK 


c 


;9T(niA)=n(  13) 

D(  13)=0(  1 3 ) * * 2*  PI/0  . 

0( 13)=l./( {"( 1 3) *0( 12) )**2*2. ) 

PT( LTC)=n( ITC ) 

DT( LTF ) =f)( I TP) 

L1  = L( 1 ) 

L2=L( 2) 

TF(  L1)=D( ITP) 

TF( L2) =0( I TP) 

TC( LI )=0( IYC) 

?C(  L 2 ) = 0 ( 1 PC  ) 

0(  rST)  = ( 0(  i’ST ) + 1 6 9 ) * * -1 
I F { 0 ( U A .< ) . L ?• . 0 . 0 ) r>{  UAR)  = 0.0069 
. iTY Pl.=  D(  RI’YPL)  + . 001 

"!'(  AC.vR)  = D(  R.iASS)/(  -iTY PL  , 2 ) * 0 ( RLi.UOT)  ) 

. iTYPl.  =.!AI’LRI  AL  1'YPL 


PLL.'JGT  = 
SP.iAP. 

U{  A5A-?)  = 
L(ITC)  = 
D ( JAP)  = 
OCA) 
O(TST)  = 
D(VOLP)  = 
P..FL1  =>iA 
D(  P.iASa) 


?L.,TRlCPOR  LL  JGTO 
.:\SS(  i-1  ) * SPECIFIC  ill.  A !' 

SU'-FACL  A'U  A KLOTTICTOI’  9 0 ATSIbUY 

I ! I i I A L '1 ...  i I5LR  A P,Jt'  „ C-'  C ).  i °0  ib 'IT 

HI  AT  Y.bA.tV-’LO  COl.FFICT  r...-iT  rALL  10  A. .01  bST 

TL..?l:<AT'J‘<L  o'-’  AwUhf.’T 

Ti... .Pl.RA't IJ Kb  Or  STI’.UCT'JR:  , OLG.  P 

VOLU.'iL  OF  FLUID  I'.SIOb  PlSTMCVOl' 

SO  FLOv;  \TL  1 M'PO  RLST'ilCTOU 
=.bASt>  OF  FbSTPiCTOK  oALLO 
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6.41.7  (Continued) 


<:  L7':)  =T',.ii  CO.!1>O.JL'JT 

;<i.V'r> ; 

C J7i..\r-y  OYAt’L  .SLCi’T'50 

2000  Cv)  :vi  j'JL 

PMP=PJP-  U*OA*D(  Id)  *:;:U(  !’!•  ( L(  1 ) ) , PUP) 

m.T'ik:: 

3d 00  CO mVI  HH. 

.iYY'->l=~>(  1<TYPL)  001 
Ct,0.v  = PUOP(  iTY  L'L  , 1) 

Cr--  = P.;Or»(.;TYt»l.f  3) 

;mI')u='.'KOP(  !TY , 2 ) 

L1  = L( 1) 
t-3=I.(2) 

\CP h=D( VOLF) /( 0(  i-  Li-. 'JOT ) ) 

\..d-  iv=.3?i:t(  i.*ack;{/°i)*m*o(ru  not) 

0 :,]=.i!  \T  TU  \ lOFLK  C^i,F‘F . *oU'U;‘ACI:,  A PI.  A u ALL  f ) FLUIP 


\W=(  \C  F R+  3 L * ')  i’  ( i)IA)  **2/4. ) 

nOd=3''KT(AA\*'»./p[) 

'Ji\<  I L='JK.<  ( AAA, OOO, P(  LI)  ,YF(Ll)  , t>(  Ll)  ) 
il=,,:O.TL*AL.FA 

--/-I[.=  3o0. 4*ki!0(  ?P(  L( 1)  ) , P(  .,(  1)  ) ) 

0 !’ ( i'  F .)=')(  VOLF ) * ;<ti  J I L 
n=  0(  MAN)  *D(  AOA  .v) 

C I P=o  I ; .0.*  L J 10  I*^.!V>r*D(  AJAO) 

’5V'=  ■)(  JLi.  :?D/ 2.0 

I; i*(  .,!>  i \Fr.)=DL’(  U\\.)  *CPFmI 

:T(.n  »a;.)  = o(  k..v>o)*c»k..  ’ 

j oL.  .pl(v/> roiu-.j 
C1=CI  P*(  OT(  LPO  + ISO.  ) **4 
TF(  '(Ll)  .C’i.  1.0)  00  T ) -inn 
L 2 = 1 1 


m=l(  2) 

1100  CO  O’ I >01 

nc  * ■':■=(  ( m/p.mi,)  *1 . o* \oo(  p(  i.d-p(  ld  ) )/(CJ*:w-o) 

L.rus’i  ccf  l i) ) 

.<  .FL2=A  A.,(  L2)  ) * r 1 i C E L 
\n  = !v  iFLl  *C?i*v 


-l=cr/(  off ( ld/acp(  [ji)+r);vVACFp+;<..rLi*oi.Lt 

+ /( ACF:.**2*moiL) ) 

M=1  .0/(  ( LXF(  L 1 ) / ( C ( Ll)*AC..(  Ll  ) ) ) +OX!</  ( C '"*  0 1’{  AC..  0 ) ) ) 
!M=1.0./(  (T«'P(  L2)/(C(  L2)  *AC..(  L2)  ) ) + r>.X  \!  / ( C *.<  * 0 ? ( a C ..:))) 
:U*r.'Yn»-  AFP' ) / OLLT+.;  1 +A 2+31 
M = o r ( r-p  .An)/",  [•  i’+  ,3+:'i+32j  u 
\(  i,i  )=•’< 

A(  1,2) =-11 
M 3, l)=-:i 
\{  2 , 2 ) =A  1 

•'.(  1 ) = ')■;■(  31'  •\FL)*0?(  L,TF)  ,/0LLi'+(  F1+.A2)  * l‘F(  Ll  ) + 0(  ?i.i'C) 

+ * OCA AT* A 2 


5(2)=  j i’ ( :3 e : V- ) *0?(  I/I’O/Oi  Lf+P3*  P.i(  Ll)  + f 1*l.i(  L2)+  02* 
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6.41.7  (Continued) 

+ D(TA)+CTP*0(riT)-Cl 
CALL  SI.IULT(  A,'1, 2,  Ii,«:<Oi!) 
PT(  LTC)  = ’i(  2) 

yr(  ltf ) =3 ( l ) 

TF ( L 2 ) =3 ( 1) 

rc(  Ll)='3(  2) 

TC( L2)=3( 2) 
id  "URN 

l.  n 
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6.51.1  Math  Model 


The  thermal  math  model  Cor  the  pump  includes  heat  transfer  to 

and  from  three  connecting  line  segments,  one  upstream,  one  downstream  and 

one  at  the  case  drain.  Thirteen  nodes  are  considered:  six  fluid  nodes, 

six  wall  nodes,  and  one  node  for  the  internal  moving  parts  of  the  pump, 

called  the  piston  node  (as  shown  in  Figure  6.51-2).  The  pump  consists  of 
-TW(L1 ) 

-TF(L1)  / — DT(TBN)  , — DT(TCN)  / — DT(TFP2)  / — TF(L2) 


-TWU.2) 


DT(TDN) 
I^N-DT(TFP3) 


TW(L3) 

TF(L3) 

FIGURE  6.51-2 

TYPE  NO.  51  PRESSURE  REGULATED  VARIABLE  DISPLACEMENT  PUMP 
AND  LINE  NODE  REPRESENTATION 


GPJ7-0©«$.22 


seven  nodes:  three  fluid  (one  inlet,  one  outlet,  and  one  case),  three  watls, 
one  inlet,  one  outlet,  and  one  around  the  case  drain,  and  one  node  for  the 


internal  moving  parts  of  the  pump,  the  piston. 

The  temperatures  of  the  three  line  segment  nodes  are  TF(L1)  and  TW(L1) , 
TF(L2)  and  TW(L2) , and  TF(L3)  and  TW(L3)  for  the  inlet  segment,  exit  segment, 
and  case  drain  line  segment  fluid  and  wall  nodes  respectively.  The  pump 
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inlet  volume  temperature  is  DT(TFPl),  exit  volume  temperature  is  DT(TFP2) , 
the  case  drain  fluid  volume  temperature  is  by  DT(TFP3) , the  pump  wall 
temperature,  around  the  inlet,  is  denoted  by  DT(TBN),  the  wall  temperature 
around  the  exit  is  DT(TCN),  the  wall  temperature  around  the  case  drain  is 
DT(TDN),  and  the  pistons  temperature  denoted  by  Dl’(TPN). 

Seven  heat  balance  equations  are  written  to  solve  for  the  seven  pump 
node  temperatures,  using  the  pump  and  line  segment  material  properties 
and  dimensions,  the  atmosphere  and  structure  temperatures  external  to 
the  pump,  and  TF(L1),  TW(L1) , TW(L1) , TW(L2)  and  TW(L3) . (Note  TF(L2)  = 
DT(TFP2)  and  TF(L3)  = DT(TFP3) , see  assumptions). 

The  first  equation  represents  three  modes  of  heat  transfer  relative 
to  the  pump  inlet  fluid  volume  (the  volume  within  the  wall  node  DT(TBN) ) . 

1.  Heat  transfer  due  to  mass  transfer  into  the  pump  volume  from  the 

i. 

) 

upstream  line  segment. 

MCp* (TF (LI) -DT (TFP1) ) 
where  MCp  is  equal  to  Q(L1)*RH0IL*CPFN 

2.  Convection  to  or  from  the  pump  walls  around  the  inlet  volume 

Bl*  (DT  (TBN)  -i>T  (TFP1)  ) 

where  Bl  is  equal  to  D(UP1B)*ASP1B,  a convection  coefficient. 

3.  Conduction  to  or  from  the  upstream  fluid  line  segment 

Rl* (TF (LI) -DT (TFP1) ) 

R1  is  the  conduction  coefficient  equal  to 

CF/ (DXF(Ll) /ACF(L1)+DXP1/ACP1+(RMFL1*DELT) / (ACF(L1)**2*RH0IL) ) 
where  RMFL1=Q(L1) *RHOIL 

These  three  heat  transfer  modes  then  combine  to  produce  the  heat 
balance  equation  for  the  pump  inlet  fluid  node. 
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MCp  *(DT(TFP1)-DT(TFP1)  ) = (Rl+MCp) *(TF(L1)-DT(TFP1))+ 

DELT  °LV 

Bl* (DT (TBN) -DT (TFP1) ) 

with  MCp  equal  to  FMASS1*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  exit  volume  two  (the  volume  within  wall  node  DT(TCN)  of  the  pump  manifold). 

la.  Convection  «.o  or  from  the  piston  node. 

B3*(DT (TPN)-DT(TFP2) ) 

where  B3  is  the  convection  coefficient  equal  to  D(UP2P)*ASP2P. 

lb.  Convection  to  or  from  the  pump  walls  at  the  exit  chamber  of 
the  pump  manifold,  node  DT(TCN) 

B8* (DT (TCN) -DT(TFP2) ) 
where  B8  is  equal  to  UP2C*ASP2C 

2.  Heat  transfer  due  to  mass  transfer  into  the  fluid  volume  from 
the  inlet  volume. 

MCp* (DT (TFP1) -DT (TFP2) ) 
where  MCp  is  equal  to  Q(L2)*R1I01L*CPFN 

3.  Heat  added  directly  to  the  fluid  due  to  compression,  friction, 
and  the  piston  moving  parts. 

D(HTREJ)*. 323 

where  D(HIREJ)  is  defined  in  the  Technical  Summary. 

These  heat  transfer  modes  are  combined  to  produce  the  heat  balanace 
equation  for  the  pump  exit  fluid  node. 

MCg_  *(DT(TFP2)-DT(TFP2)mn)  = B3*(DT(TPN)-DT(TFP1) ) + MCp*  (2) 

DELT  OLD' 

(DT (TFP1)-DT(TFP2))  + .323  * D(HTREJ) 
+B8* (DT (TCN) -DT (TFP2) ) 

The  third  equation  represents  three  modes  of  heat  transfer  relative  to 
volume  three  within  the  pump  case. 
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1.  Heat  transfer  due  to  mass  transfer  into  the  case  volume  three 

from  the  inlet,  and  exit  volumes  respectively.  (Leakage  flows) . 

DT (QLEAK1) *CPFN* (DT (TFP1) -DT (TFP3) ) and 
DT (QLEAK2 ) *CPFN* (DT (TFP2) -DT (TFP3 ) ) 
where  DT(QLEAKl)  is  equal  to  D(C0ECIN)*(P(Ll)-P(L3))  and 
DT (QLEAK2)  is  equal  to  D(COEPLK)*(P(L2)-P(L3))  . 

2a.  Convection  to  or  from  the  pump  mass  node  around  the  case. 

B5* (DT (TDN) -DT (TFP3) ) 
and  B5  is  equal  to  UP3D*ASP3D 
2b.  Convection  to  or  from  the  piston  mass  node 

B2* (DT (TPN) -DT (TFP3) ) 
where  B2  is  equal  to  UP3D*ASP3P 
3.  Heat  added  to  the  fluid  due  to  the  heat  rejection  term 

. 24*D(HTREJ) 

where  D(HTREJ)  was  defined  previously. 

These  heat  transfer  terms  combine  to  produce  the  heat  balance 

equation  for  the  fluid  volume  3 in  the  case  drain. 

MCp  *(DT(TFP3)-DT(TFP3)  ) = DT(QLEAKl) *CPFN* (DT(TFP1)-DT(TFP3) ) (3) 

DELT 

+DT (QLEAK2 ) *CPFN* (DT (TFP2) -DT (TFP3) ) 

+B2* (DT (TPN) -DT (TFP3) ) +B5* (DT (TDN) - 
DT(TFP3) ) + . 24*D(HTREJ) 

where  MCp  is  equal  to  FMASS3*CPFN 

The  fourth  equation  represents  four  modes  of  heat  transfer  relative 
to  the  pump  wall  mass  (inlet  manifold  mass)  around  the  inlet  volume. 
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la.  Conduction  to  or  from  the  pump  wall  node  around  the  exit  volume. 


(manifold  node  DT(TCN)) 

R9*(DT(TCN)-DT(TBN) ) 

where  R9  is  equal  to  COB/ (DXB/ACB+DXC/ACC) 

lb.  Conduction  to  or  from  the  upstream  line  wall  segment 

R3* (TW(L1) -DT(TBN) ) 

where  R3  is  the  conduction  coefficient  equal  to 

1 . 0/ (DXF(Ll) / (ACW(Ll) *C (LI) ) +DXE/ (ACB* COB) 

lc.  Conduction  to  or  from  the  pump  wails  around  the  case  fluid  volume. 

Rll-V  (DT  (TDN)-DT  (TBN)  ) 

where  Rll  is  equal  to  COB/ ( (DXB/ACB+DXn/ACD) *2 . 0) 

ld.  Conduction  to  or  from  the  piston  node 

R5*(DT(TPN)-DT(TBN) ) 

where  R5  is  equal  to  l./(2. *(DXP/(D(ACP)*COP)+DXB/(ACB*COB)+ 

1. 0/ (D(ASPB) *D(CBP) ) ) ) . 

2a.  Convection  to  r from  the  pump  fluid  in  inlet  volume,  fluid 
volume  one. 

B1*(DT(TFP1)~DT (T8N)) 
with  B1  defined  previously. 

2b.  Convection  to  or  from  the  surrounding  atmosphere 

B6* (D (TA) -DT (TBN) ) 
where  B6  is  equal  to  D(UAB) *D(ASAB) *D1 
D1  is  equal  to  D(V0L1)/(D(V0L1)+D(V0L2)) 

3.  heat  added  due  to  the  heat  rejection  term 

. 125*D(HTREJ) 

D(HTREJ)  has  been  defined  previously  . 
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4.  Radiation  exchange  with  the  surrounding  structure 

C2* (D (TST ) - (DT (TBN)+460) **4 ) 

where  C2  is  a radiation  coefficient  equal  to  C1*D1  where 

Ci  equals  SIGMA*EPS10N*SHAPF*D(ASAB)  and  Dl  defined  previously. 

These  heat  transfer  terms  combine  to  produce  the  heat  balance  equation 

for  the  pump  wall  (manifold  wall  node  B around  the  inlet  volume) . 

MCp* (DT(TBN)-DT(TBN)  ) = R3+(TW(L1)-DT(TBN))+R9*(DT(TCN)-DT(TBN)) 

DELT  0LD  (4) 

+ Rll*(DT(TDN)-DT(TBN))  + R5*(DT (TPN)- 

DT(TBN))  + Bl* (DT (TFP1) -DT (TBN) ) + 

B6* (DLTA)-DT(TBN) ) + . 125*D(HTREJ) 

+C2* (D(TST) ) -C2* (DT(TBN)+460 . ) **4 

where  MCp  is  equal  to  D(TPMASS) *CPBN*D1. 

The  fifth  equation  represents  three  modes  of  heat  transfer  relative  to 
the  piston  node. 

la.  Convection  to  or  from  the  fluid  in  the  exit  chamber 

B3* (DT (TFP2 ) -DT (TPN ) ) 
with  B3  described  previously 

lb.  Convection  to  or  from  the  case  fluid 

B2*(DT(TFP3)-DT(TPN)) 

with  B2  being  defined  previously.  * 

2.  Conduction  to  or  from  the  pump  manifold  walls 

R5*  (DT  (TBN)  -DT  (TPfJ)) 

R8* (DT (TCN)-DT (TPN) ) 
when  R5  is  as  defined  previously, 
and  R8  equals  1. / ( (DXP/ (D(ACP)*COP)+DXC/ (ACC*COB) 
+1./(D(ASBP)*D(CBP))*2.) 

3.  Heat  added  to  the  piston  mass  from  the  heat  rejection  term 

. 187*D(HTREJ) 
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These  heat  transfer  terms  combine  to  produce  the  heat  balance  equation 
for  the  piston  node. 

MCp  *(DT(TPN)-DT(TPN)  ) = B3*(DT(TFP2)-DT(TPN) ) + 

DELT  0LU  (5) 

B2*(DT(TFP3)-DT(TPN) ) + 

R5+ (DT ( TBN ) -DT (TPN ) ) + . 1 8 7 *D ( HTRE  J ) 

+R8* (DT (TCN) -DT (TPN) ) 

where  MCp  is  equal  to  D(PMASS)*CPPN 

The  sixth  equation  represents  four  modes  of  heat  transfer  relative  to 
the  pump  manifold  wall  node  surrounding  the  exit  volume,  Node  C. 

la.  Conduction  to  or  from  the  downstream  connecting  line  segment 

R4* (TW(L2) -DT (TCN) ) 

where  R4  equals  1.0/(DXF(L2)/(ACW(L2)*C(L2))  + DXC/ (ACC*COB) ) 

lb.  Conecution  to  or  from  the  piston  mass 

R8* (DT (TPN)-DT (TCN) ) 
where  RS  was  defined  previously. 

lc.  Conduction  to  or  from  the  two  pump  wall  node  manifold  B 
(inlet,  volume  wall) 

R9* (DT(TBN)  - DT(TCN)) 

ld.  Conduction  to  or  from  the  case  wall  node 

RIO* (DT (TDN) -DT (TCN) ) 

where  RIO  is  equal  to  COB/ ( (DXC/ACC+DXD/ACD) *2 . ) 
and  R9  was  defined  previously. 

2a.  Convection  to  or  from  the  exiting  fluid  node 

B8*(DT(TFP2)-DT(TCN)) 
where  B8  was  defined  previously. 

2b.  Convection  to  or  from  the  surrounding  atmosphere 

B9* (D(TA)-DT (TCN)) 

where  B9  is  equal  to  D(UAB)*D(ASAB)*D2 
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3.  Heat  added  to  the  walls  due  to  a heat  rejection  term, 

. 125*D(HTREJ) 

where  D(HTREJ)  was  defined  previously. 

4.  Radiation  exchange  with  the  surrounding  structure. 

C3*(D(TST)-(DT(TCN)+460.)**4) 

where  C3  equals  C1*D2  and  Cl  was  defined  previously,  and  D2 
equals  D(V0L2) / (D(V0L1)+D(V0L2) ) . 

These  heat  transfer  terms  combine  to  produce  the  heat  balance  for  the 

pump  wall  around  the  exit  volume,  manifold  wall  node  (DT(TCN). 

MCp  *(DT(TCN)-DT(TCN)  ) = R4*(TW(L2)-DT(TCN))+R9*(DT(TBN)- 

DELT  'JLU  (6) 

DT (TCN) )+R8* (DT (T?N) -DT (TCN) ) + . 125* 

D (HTREJ ) +R10* (DT (TDN) -DT (TCN) ) + 

B9*(D (TA) -LT (TCN) )+B8* (DT (TFP2) -DT (TCN) ) 

+C3*D(TST)-C3*(DT(TCN)+460.)**4 

where  MCp  is  equal  to  D(TPMASS)*CPBN*D2. 

The  seventh  equation  represents  three  modes  of  heat  transfer  relative 

to  the  pump  walls  surround  the  case  fluid. 

la.  Conduction  to  or  from  the  case  drain  connecting  line  wall  segment. 

R7* (TW(L3)-DT (TDN) ) 

where  R7  is  equal  to  1.0/(DXF(L3)/(ACW(L3)*C(L3))+DXD/(ACD*C0B)) 

lb.  Conduction  to  or  from  the  two  other  pump  manifold  wall  nodes, 
around  the  Inlet  and  outlet  respectively. 

Rll* (DT (TBN) -DT (TDN) ) 

RIO* (DT (TCN) -DT (TDN) ) 

where  RIO  and  Rll  were  defined  previously. 
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2a.  Convection  to  or  from  the  fluid  in  the  case  volume 

B5* (DT (TFP3) -DT (TDN) ) 
with  B5  defined  previously. 

2b.  Convection  to  or  from  the  external  surrounding  atmosphere 

BIO* (D (TA) -DT (TDN) ) 

where  BIO  is  a convection  coefficient  equal  to  D(UAD)*D(ASAD) . 

3.  Radiation  exchange  with  the  surrounding  structure. 

CA*  (D  (TST )-  (DT  (TDN)  +A  60) l* ) 
where  CA  is  equal  to  SIGMA*EPSION*SHAPF*D(ASAD) 

These  heat  transfer  terms  combine  to  produce  the  heat  balance 

equation  for  the  case  wall  node. 

MCp  * (DT (TDN) -DT (TDN) A ) = R7*(TW(L3)-DT(TDN))+R11*(DT(TBN)- 

DELT  °LD  (7) 

DT(TDN) ) + RIO* (DT (TCN)-DT (TDN) ) 

+B5* (DT (TFP3)-DT (TDN) )+B10* (D (TA) 

-DT(TDN)  )+CA*D  (TST)-u-':*(DT(TDN)  + 

A60)**A 

where  MCp  is  equal  to  D(PDMASS) *CPBN . 

A thermal  model  of  the  above  heat  transfer  terms  for  the  pump  is 
shown  in  Figure  6.51-3. 

Equations  (1)  thru  (7)  are  solved  for  the  appropriate  temperatures. 

In  the  hydraulic  math  model  the  variable  delivery  pump  generates  fluid 
flow  in  response  to  system  flow  demand.  The  output  pressure  is  a function 
of  outlet  flow.  The  steady  state  pump  simulation  models  the  pump 
characteristic  flow  versus  pressure  out  curve  (Figure  6.5-A),the  characteristic 
leakage  from  high  pressure  to  pump  case,  the  leakage  from  pump  case  back  to 
inlet  and  the  pump  outlet  flow  versus  inlet  pressure  curve. 


6.51-10 


. 24*D(HTREJ) 


CASE 

EXIT 

FLUID 


CN  = RADIATION 
D(HTREJ) “GENERATION 


FIGURE  6. 51 -3 
THERMAL  MODEL 
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(0,DT(Q3) ) 


(DT(RPFQ) ,DT(Q2R) ) 


6.51.2  Assumptions 

1.  All  internal  moving  parts  are  evaluated  as  one  node,  all  at 
the  same  temperature,  DT(TPN). 

2.  The  mass  of  the  pump  walls  are  modeled  as  three  nodes,  two 

top  mainfold  nodes  one  each  associated  with  the  inlet  and  exit 
fluid  volumes,  and  the  third  wall  around  the  case  volume. 

3.  External  temperatures  remain  constant. 

A.  Interface  conductances  between  pump  wall  and  connecting  lines 
is  infinite. 

5.  The  fluids  leaving  volumes  two  (exit)  and  volume  three(case) 
are  equal  to  DT(TFP2)  and  DT(TFP3)  respectively,  so  there  is  no 
interaction  with  the  downstream  line  fluids  nodes. 

6.  The  emissivity  of  the  walls  remains  constant,  .3  for  steel. 

7.  Complete  mixing  occurs  in  the  fluid  volumes. 

6.51.3  Computational  Methods 
Section  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degree  Farenheit  to  Rar.kine  and  raised 
to  the  fourth  power,  and  the  default  values  are  assigned. 

Section  2000 

The  pump  subroutine  is  called  in  the  order  inlet,  case  drain  and 
outlet.  The  inlet;  pressure  is  determined  from  the  pump  flow  node.  The  pump 
rated  flow  at  che  operating  RPM  is  calculated  as 

DT(Q?R)  =•  D(RQ)*D(RPM)/D(  RRPM) 

The  pump  flow  at  zero  system  resistance  is 

DT(Q3)  = 1.05*DT(Q2R) 
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If  the  inlet  flow  is  less  than  the  pump  minimum  inlet  pressure  D(PSMIN), 
a new  rated  flow  is  computed  based  on  a straight  line  interpolation  between 
10  psia  and  D(PSMIN).  When  inlet  pressure  fails  below  10  psia  a warning 
message  is  printed. 

On  entry  into  the  case  drain  section  the  leakage  flow  from  high  pressure 
to  the  pump  case  is  calculated  as 

QPCD  = D(RCDC)- ( . 3* (DT (QOUT) /D(RQ) ) 

The  flow  that  leaks  back  to  the  inlet  from  the  case  is  a function  of 
the  case  flow  out  the  port  and  QP(d).  The  case  pressure  is  computed  based  on 
this  flow  difference. 

DT(PCASE)  = D(RCDP)*(1-QQ/QPCD)  + DT(PINLET) 

Using  the  flow  out  of  the  pump  the  characteristic  r "sure  out  is  calculated 
for  flow  less  than  DT(Q2R) 

DT(POUTLT)  » I)  (RPOQ)  - (D  (RPOQ)  -I)  (RPFQ) ) * (QQ/DT(02R) ) 

If  the  flow  out  is  greater  than  DT(Q2R) 

DT(POUTLT)  = (DT(Q3)-QQ)*D(RPFQ) / (DT(02R)-DT(Q3) ) 

The  actual  pump  outlet  pressure  is  calculated  using  DT(POUTLT)  from 
the  characteristic  curve  and  adjusting  this  to  account  for  the  actual  pressure 
in  the  case  less  the  case  pressure  at  which  DT(POUTLT)  was  set. 

POUT  = DT(POUTLT)  + DT(PCASE)  - D(PSET) 

Section  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are 
calculated.  A 7 X 7 matrix  is  loaded  and  equations  (1)  through  (7)  are 
solved  for  DT(TFPl) , DT (TFP2) , DT(TFP3) , DT(TBN),  DT(TPN) , DT(TCN)  and  DT(TDN) . 
The  calculated  values  are  assigned  to  their  proper  storage  locations  and  the 
boundary  conditions  are  assigned  to  TF  and  TC  in  COMMON/TRANS/. 
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6.51.4  Approximations 


1.  The  heat  transfer  coefficients  for  fluid  in  the  case  to  the  case 
walls  is  one  third  of  the  coefficient  from  fluid  in  volume  one  to 
the  case  walls. 

2.  Many  distances  and  areas  are  approximated. 

6.51.5  Limitations 

The  pump  model  cannot  handle  cavitation  at  the  inlet  port. 

6.51.6  Variable  Listing 


Variable 

Description 

Dimensions 

ACB 

Cross  sectional  of  maniiold  wall  node  B,  around 
the  inlet  volume 

IN.2 

ACC 

Cross  Sectional  area  of  manifold  wall  node  C, 
around  the  exit  volume 

IN.2 

ACD 

Cross  sectional  area  of  manifold  wall  node  D, 
around  the  case  volume 

IN.2 

D(ACP) 

Estimated  cross-sectional  area  of  the  rotating  group 

IN.2 

ACPI 

Estimated  cross-sectional  area  of  the  inlet  fluid 

IN.2 

ACP2 

Estimated  cross-sectional  area  of  the  outlet  fluid 

? 

IN. 

ACP3 

Estimated  cross-sectional  area  of  tht  case  fluid 

IN.2 

D(ASAB) 

External  surface  area  of  the  pump  walls 

o 

IN.  “ 

D(ASPB) 

Contact  area,  walls  and  the  internal  mass  (pistons) 

IN.2 

ASPIB 

Surface  area,  inlet  fluid  to  walls 

IN.2 

ASP2P 

Surface  area,  outlet  fluid  to  pistons 

IN.2 

ASP3P 

Surface  area,  case  fluid  to  walls 

IN.2 

ASP3P 

Surface  area,  case  fluid  to  internal  mass  (pistons) 

IN.2 

B 

Dummy  computational  array 
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6.51.6  Variable  Listing  (Continued) 


Variable 

Description 

Dimensions 

B1,B2,B3, 
B5 , B6 

Dummy  variables 

— 

D(CPB) 

Interface  Conductance  between  the  piston  and  walls 

WATTS/ IN. 2oF 

CJ 

Mechanical  Equivalent  of  Heat 

FT -LB  /WATTS-SF 
m 

COB 

Thermal  conductivity  of  the  walls 

WATTS/ IN-°F 

COP 

Thermal  conductivity  of  the  pistons 

WATTS/ IN. -°F 

CPBN 

Specific  heat  of  the  walls 

WATTS-SEC/I.Bm-° 

CPPN 

Specific  heat  of  the  pistons 

WATTS-SEC/LBm-° 

Cl 

Dummy  variable 

— 

D (DELTA) 

Distance  from  connection  one  to  piston  chamber 

IN. 

D(DELTAl) 

Case  Depth 

IN. 

DXB 

Distance  from  wail  node  to  interface  of  lines 

IN. 

DXC 

Distance  from  internal  fluid  node  to  interface 
of  lines 

IN. 

DXD 

Distance  from  exit  fluid  node  to  interface 

IN. 

DXP 

Distance  from  piston  node  to  interface 

IN. 

DXP1 

Distance  from  fluid  one  node  to  interface  with  line 

IN. 

D.l,D2 

Dummy  variables 

-- 

EPSION 

Emissivity  factor 

FMASS1 

Inlet  fluid  mass 

LBm 

FMASS2 

Outlet  fluid  mass 

LBm 

FMASS3 

iase  fluid  mass 

LBm 

D(HTREJ) 

Heat  rejection  term 

WATTS 

D(1TF) 

Initial  temperature  of  the  fluid  in  the  pump 

°F 

D(ITB) 

Initial  temperature  of  the  pump  & piston  masses 

°F 

LTYPE 

Du.vmy  variable 

- 

NTYPE 

Dummy  variable 

- 
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6.51.6  Variable  Listing  (Continued) 


Variable 

Description 

Dimensions 

DT(PCASE) 

Case  Pressure 

PS  I 

DT  (1*  INLET) 

Inlet  Pressure 

PSI 

D(PMASS) 

Piston  Mass  (all  internal  moving  parts) 

LBn, 

DT(POUXLT) 

Outlet  Pressure 

PSI 

POUT 

Dummy  Variable 

- 

PP 

Computational  array 

- 

D(PSET) 

Pump  Case  Pressure  at  rated  flow 
and  pressure 

PSI 

D(PSMIN) 

Minimum  inlet  pressure 

PSI 

D(PTYPE) 

Piston  Material  Type 

- 

DT(QCD) 

Case  Drain  Flow 

CIS 

DT(QLEAKl) 

leakage  flow  high  pressure  to  case 

CIS 

DT(QLEAK2) 

Leakage  flow  case  to  inlet 

CIS 

Q2C 

Dummy  Variable 

- 

DT(Q2R) 

Rate  Flow  adjusted  for 
operating  RPM 

CIS 

D(RCDL) 

Case  drain  flow  at  rated 
conditions 

CIS 

D(RCDP) 

Maximum  pressure  difference  between 
pump  case  and  inlet 

PSID 

RHOB 

Case  material  density 

LB  /IN5 
m 

RHO II. 

Fluid  density 

LB  /IN3 
in 

LB  /IN3 
m 

RHOP 

Rotating  group  material  density 

RMFL1 , 
RMFL2, 
RMFL3 

Dummy  Variables 

D(RPFQ) 

Rated,  pressure  at  full  flow 

PSI 

D(RPM) 

Pump  operating  speed 

RPM 
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6.51.6  Variable  Listing  (Continued) 


Variable 

Description 

Dimensions 

D(RPOQ) 

Rated  pressure  at  zero  flow 

PSI 

D(RQ) 

Rated  flow 

CIS 

D(RRPM) 

Pump  speed  at  rated  flow  and  pressure 

RPM 

RPM 

Dummy  variable 

— 

R1,R2, 

R 3 , R4 , 
R5,R7, 

R 10, Rll 

Dummy  variables 

SHAPE 

Radiation  shapf  factor  for  the  external  walls 

— 

SIGMA 

Stefan-Boltzinann  radiation  constant 

WATTS/ IN. 2-°R^ 

D(TA) 

Surrounding  atmospheric  temperature 

°F 

DT(TBN) 

Temperature  of  the  pump  walls 

°F 

DT(TFPl) 

Temperature  of  the  inlet  fluid 

°F 

DT(TFP2) 

Temperature  of  the  cutlet  fluid 

°F 

DT (TFP3) 

Temperature  of  the  case  fluid 

°F 

D(TPMASS) 

Pump  wall  mass 

LBm 

DT(TPN) 

Temperature  of  the  internal  parts,  piston 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 

D(bAB) 

External  heat  transfer  coefficient  of  the  pump 

WATTS/ IN.  -°F 

D(UPIB) 

Heat  transfer  coefficient,  inlet  fluid  to  the  walls 

WATTS/ IN. 2-°F 

D(UP2P) 

Heat  transfer  coefficient,  outlet  fluid  and  the 
piston 

WATTS/ IN. 2-°F 

UP3P 

Heat  transfer  coefficient,  case  fluid  ar.d  the  walls 

WATTS/IN. 2-°F 

D(VOLl) 

Inlet  volume 

IN.3 

D(V0L2) 

Outlet  volume  plus  cylinders  volume 

IN.3 

D(V0L3) 

Case  volume 

IN.3 
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6.51.7  Subrouting  Listing 


S'JOROUTTaL  TPJ.iPAl  (D,DT,DD,L) 

DI.iLMSIOU  D(  1)  , OT ( 1)  ,00(1)  ,L(  1) 

CO.ii.CM  / TP.  An b/  P(  300)  ,0(  300)  ,C(  300)  ,TC(  300)  ,Tw(  300)  ,TF(  300) 

+ , ACF(  300)  , ACw(  300)  , DXF(  300)  , TI.-iL,  OLLT,  PI  ,ULINL,MLL 

CO.n .OH  / CO.  i V LTY  Pt { 9 9 ) ,GC(99)  ,KTL,-.P(99)  , ISO,  ILMT<-  ,TGM. 

CO.-i.iO.y  / GTL.AOY/  PH ( 9 0 ) , O.'J (00)  , PLX(90)  , POLLC(90)  ,00(90)  , 

+ OA,  01 , PUP,  PDO.»i'i , MNODl, , MLLG,  uC  PA  , TLK.I , LlGM,  ICO:-.,  1 'IV, 

+ INX,  I.m’D  ,GUP(  9 0)  ,UD‘.;M(  90 ' ,ULLL..(  9 0)  . TGLGAO{  90)  , ILbG(  1000) 

CO.I.-iOi'i  / FLUID/  ViPPLU,CF,CPFK,  pr-  . PKOP(  1 3 , 3 ) 

DIAL  IS  I GO  PP( 7,7)  ,3( 7) 

IXTlGLk  TST,  ?A, VoLi,VOL2,  P.tAJS , VOL  3 , TPaASS , ACP , AS  AS , 

+ J A 3 , A S P3  , C r.  P , k P;  i , 0 P2  P , UL L PA , U P 1 o , QOUT 
+ , PTY  Pi. , i HP1 , TF  P 2 , YFP3  , ISM , YPN  , QLbAKl , QLuAK  2 , PCA&b 
+ , O , POr.Aoo  i TDM  , TC.m  , u PF'O , H PGQ , (<0/  F RP.  1 , PS.-i 1 .1 , RC DP , 

F PS  LY , 01  L PA  L , POUTLT , PliJLoT , Q3  , Q2K , RCDL , HTKL  J , QC'O , POUT 
C D ARRAY  VAR  I A. 9 Li- a 

DA  PA  «.TY  PL/  1/  , PTYPl  / 2/  , TPaASS/  3/  , PU.ASS/  4/  , PO.wASS/  5/  , VOL1/  6/  , 

+ VOL2/  7/  , VOL3/  3/  , ACP/  9/  , ASPi3/  10/  , U P 2 P/  1 1/  , iITRlJ/  1 2/  , DlLTa/  1 3/  , 

+ A S A 3/  1 4/  , A S A 0/  1 5/  , UA  3/  1 5/  , C 6 P/  1 7/  , U Pi  0/  1 V , T ST/  1 9/  , 

+ FA/'  2 0/  , I YF/  2 1/  , I T3/  2 2/  , 

+ PC'/  2 3 / , R R «>.  1/  2 4/  , R P.  1/  2 5/  , R POO/  2 6 ' , it P P J/  2 7/  , 

+ Pb. . I i/  2 3 • , RC  OlV  29/  , PC  QL/  3 0/  , PS  LTV  3 1/  , DLL  L’A  1/  9 2/ 

C DT  AR;«AY  VAkIAOLlS 

U XT  A PP?1  / 1/  , T F P 2/  2/  ,TFPV  3,  ,T3W/  1/  ,TPw/  5/  ,OLl-.AK1/  6/  ,C»LbAt<2/  7/ 
+ , j2P/  'v  ,03/  9/  , ?!  .Li.  1/  10/  ,TCM/ 11/ ,TDM/ 12/ , PCAaL/13/  , POUTLT/ 14/ 
+ , }C  U/15/ , POUT/ 15/ 

DATA  SICCA/  . 349L-11/  ,SHaPF/  .96/  ,L?JIOM/0,  3/  ,CJ/  8.85/ 

C DLLTA  =T.il,  OUT A.4CL  FRO.-.  I.ILl/F  TO  OUTLlT  TrlROUGrl  Tiil.  PISTO.i 

C DlLFA]  =T.lh  TOTAL  DLPTil  OF  Trib  DkAIm  SOv.L 

C ITFA  IT  5 = I.^1TIAL  TL.-.PLRAFUkL 


C 

C 


C 

C 

n 

c 

c 


c 

c 

c 


Q * *■  * 
1000 


UA ,1  = HLAT  TRAMSFlI'  COlFF,  AT >.Oa PHLRl  TO  CASb 

ASAD  =i,J);FACf.  Aul.A  l.XYl.Kn'AL  TO  CASb  DRaIn  ./ALL 
PO.jAS.j  =PU.iP  GALL  a AGO  OF  CAJL  ORA  I L GALLS 
COP  »IiiTbrtPACb  COWDUCTADCL,  PISTOL  TO  CASl 
VO L 1 =l-iLi.F  VoLU.1l. 

VOL 2 =LXIF  VuLOiib  UCLUOtb  CYLIMDLR  VOLU. .LG 
VOL3  =CASi.  VOLU.il. 

A S P 2 -CO. 'i  FACT  A:- ! A IVfiPiAL  PAivTS , PTSTOM  , TO  CASL 
ACP  =CFObS  btCTlONAL  A xbA  OF  TOTAL  PISTON,  I HTi.RMAL 
. i A s ; j 

J R 2 P siiiiAT  TaAGoFlk  COcFFICIuGV  Plb'ivU  TO  LXIT  FLUID 
0LLAK1  = LbAKAGu  l Lo.i  FivO-t  I-JLbF  TO  IDkAI.m 
UPl  5 =iiLAT  VRA.'iSFi.R  COlFF.  CASL  OR  PIJYOG  TO  FLUIDS 
P.iASS  = PIoTOri  . iASS 

TP.1ASS  =?U.1P  ..ASS  SUil SO  JIIDI  IG  VOLU.a.S  U 2,YuP  aOUMTI  4G 

3 20  ITU/  .4 1 \ . = 5 6 2 5 , /vATYa 

I?(  I L.4 Y,< ) 1000,2000,3000 

1900  SilCTIOG 

CO.JTI.4UL 


Ll  = L(  1) 
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6.51.7  (Continued) 


L2=L( 2) 

1 1 3 = L ( 3) 

C I'ilTI^LlZl  Ti-,.IPLRAf:jRc.b 

TC  ( L 1 ) = 5 ( I Til ) 

TC(L3)=D(  I T 3 ) 

TP(  L 3 ) - D ( I ft') 

TC ( L2 ) =D(  IT 3 ) 

TF( L2)=C( ITF) 

TP(L1)=D( ITF) 

L'T(  inFPl)=D(  ITF) 

DT(  I’CiJ)=0(  I I’J) 

;;t(  r )n)*d(  it  t, 

DF(  i'fV2)“U(  ITF) 

O'i.  ( IT  i-3  ) =D(  I TP) 

TP(  TfJ.M)=D(  IT3) 

D1  ( n*N)=D(  ITF) 

0(  :~>i')  = ( D(  r.j'^)  + 460,  ) **4 
IF(  D(  UPl3)  ,L0.  o.  0)  D(  UP1:3)  = . 1 
IF  ( 0(  UAtO  , LO,  3.0)  j(  UA3 ) = , 000  3 
IF(0(Ul'2P)  , LQ.O,  0)  D( 0P2P) =3 , 0 
DT(  PIinLl  T ) = - 1 , 

DT(  00  UT ) = 10. 

RLT  Jj-.  : 

C ***  2000  SbCTIo:. 

2000  COII'HUL 

Fill.  PU.tP  13  C-ULt.O  I.  T Mi  ORDbK 

COO  1 - I '4 Lt.T : CO>:  3 - CAol  DKAHj  CO.-i  2 - JUT LOT 
IF( ICON-2)  2100,2013,2200 
C Li  Li,  I 

2100  Jl’(  V-  H)*D(  Pi)  v D(  OP  . ) / 0 ( KKP. . ) 

OV  ( C3  ) •“  1 . 0 5*  L r ( j2'.\) 

IP  (OF(  PI.'.LLT)  .LJ, -1.  )GO  TO  2131 
OT { PI  ;Li.l’)=P.<(  I. .ILL)  ) 

IP(  OT(  PI  vL!  ")  .CL  . ’)(  PJ..I.1)  ) r-.l.TURo 
320.  1 

I ? ( DT(  PI  <Lt  T)  ,GT,  10.  )C2C=OF(02P)  *(  ( D(  PJ..I.0  -DT(  PI.-iLlT)  ) 
+ / ( D(  PG.il  n)  -13,  ) ) 

;yi*{  Q2P  ) ~ ")2C 

IF(  OT{  PI  4LLT)  . LT,  ID.  ) ./}<ITu(  6,9  19) 

999  POP. i AT ( .1. OX,  4 U’i.vARMI  'iv'i  PU..P  I.4Ltf  PixLJJURL  3lLO,.  13  Pol) 
RLI’iJjOJ 

2101  DT( PIHLLY) =50. 

KLT’JRU 

2200  1F(  IAX.Ni..  1)  GO  I'O  2730 
C CAot,  CPA  I -i 

y'='i  i 

IF ( Q 1 . Li’,  0, 0)  30=0, 0 

TPC;)=D(  I.COL)~(  . 3*(OT(OOUL’)/DUO)  ) ) 

DT  ( o LiiA  K 2 ) = 0 PC  0 
IF(Q1.GY.  npco)  3.)"0PCJ 
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6.5L.7  (Continued) 


D I* ( PCAJb)  = D(  RCDP)  * ( 1 , ~ 00/  0 PC iJ ) + DT ( PI.-JL&T) 

DT(  P-CJ)  =00 

DT(  0UAK1)  =DT(  QCD)  -D'i'(  0LlAK2) 

P'JP=  + DT(  PC  \SL) 

I/)V=0 

PDLkG(  IN'LL)  =DT(  PCAofc) -l)T(  PIMLLT) 

KLV  Ji’.U 

201  0 IF(  I i 7 X , 1L.  1)  GO  T O 2 7 JO 
C OUTLlT 

00=01 

i p(  oi.  n\  o.o)  oo=o.o 

I/(Q1, GT.  0 r ( o 3 ) )0Q=DT(03) 

DT( 0OU7)=  K> 

IF(  oi,  GT.  0T(02R) )GO  ro  2020 

D I‘(  POUTLT)  = D(  r<PO0)-(  n(  RPOQ)-L>(  KPFO)  )*(QQ/0T(  Q2R)  ) 

GO  TO  2030 

2020  l)T(  POUTLT)  = ( OT(  03) -00)  *D(  RPPQ)/  ( L)T ( 0 2 R ) - D’l’ ( 03)  ) 

I F ( DT(  POIJT  LT ) , L ! , 0 , 0 ) DT  ( POU  P LT ) = 0 . 0 
2030  DT(  POU T ) = DT ( POUYLT)+Dr(  PCAGL)-1)(  P53LT) 

I F ( DT ( POUT)  , LT,  DT(  PCAoL)  )DT{  PO01’)«DT(  PCAJL) 

PUP=DT( POUT) 

IilV=0 

PDLi  G(  IRLL) =DT(  POUT) 

2000  RiTUKU 

2700  .»KlTb(  6, 2H00)  I NO,  ICO'i , IrtLL 

2300  FOR,-iAT(  5 X,  4 fill  CALL  GvYjULNCL  ukKOK  DlI'mCiTO  I ; Cu.-.POHl  mT  •■Jo  , 
+ 15,  14m  COL -vlCTION  OC,I5,7mLlC  UG,  ,15) 

GTOP  5000 

C ■**  3000  g.,CYI->h 
300  ) CO..PI  1UL 
Ll  = L( 1 ) 

L2=L( 2) 

L3=  L( 3) 

XTk'PL=0(.»TYPL,)  + , 001 
■ j V Y'Pl=  O ( PT Y PL ) + . 0 0 1 
CPP,,  = PivOP(  KTYPl,  1 ) 

CPP;i-pROP(  in'YYPl,  1) 

COT  = Pi<UP(  KVYPL,  3) 

COP=?RO?(  GI’YFl,  3) 

C PC\'=C  P 3jv 

cpo  . -=c  p'3:j 

K.tUP=:VOP(  w’j’YPu,  2) 

KliO 3=  PROP(  TTYPL,  3) 

C A FLAG  f.  OIGTAWCmL  APL  LdTI  ..ATbG 

Ol  = D(  70L1 ) / ( D(  70L1 ) + J(  VOL2  ) ) 

D 2 = D ( VO L 2 ) / ( D(  VOLl)+D(  70.'  2)  ) 

OXPl  = D(  Dt-Ll'A)  / 4 , >) 

DXU=D(  DL.LT A),  4,0 
U.XC  = 0(  OLLTA)/  4,0 
DXL=0( DlLTAI )/ 2, 
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6.51.7  (Continued) 


r' 

c 


DXP=D(  P.iAoo)/  ( f<ll0P*D(  AC P)  ) 

C 1 = 31-3. i.\*tPSI0N*3HAPF*D(  ASA3) 

C 2=C 1*  Dl 
C 3 = C 1 * D2 

C4=SI3.t.\*bP3IO;i*3iiAPr+D(  ASAD) 

KilOI  L=336 . 4 * R(1G(  DT(  i'FPl ) ,(P(L3)+P(Ll))/2.  ) 

P.1ASS1  = D(  V0L1 ) * RilOI  L 
F..ASS2=(  D(  VO L 2 ) ) *rti;OIL 
F..AS03  = 0(  VOL3)  * KIIOIL 
Ci’lA3S=D(  PP.ASb)  *^2 
A.iASS=D(  riA.AoS)  *01 
AC  :i  = 3i  iA  33/  ( KH0l*D(  DLL  PA ) , 2,  ) 

ACC=C.'iA3.V  ( MiOO*  0(  OLLI'A)/  2,  ) 

ACD=0(  PD.i  ASS ) / ( Ril03*D(  DLLTA1)  ) 

\CP1=D(  v/OLl ) / D(  DLL' I*  A ) 

ACP2=D(  vOL2 ) / ( D(  DLLTA)/  2, 0) 

A C P 3 = 0 ( VOL3 )/ ( D{ DLLTA1 ) / 2, 0) 

\SP13  = S\}RT(  4.  * ACPI/  PI)  * P I * D ( DLLTA ) 

ASP3 0=3DR7( 4, *ACP3/  PI)  *PI*D( DtLTA 1 ) 

ASP2?=S'2M  ( 4.*ACP2/PI)  *PI*0(  DLLTA)  / 2. 

AS  P2C=*  / ;T(  4 . * AC  P 2/  P I ) * P I * D ( DlLTA)/ 2. 

ASP3P=S3LT(  4 , y ACPI,  PI)  * PI  * 0(  DLLTA!  ) 

ASP 3 2 = 3 vrr(  ACC*  4.  PI ) *?I*D(  DLLTA) 

ill. \ £ i’iA-SFlK  COLFr.AkL  COwSTANTS=503T'J/  «1U-FT2-P(  . 1 1 
/ I u 2-F ) JLFaJLT  VALUL 
■JP33  = D(UP1  i)/2. 

UP3u=‘jP3S*2,/  3, 


'JA'j=  0 ( Ua  i ) 

UP2C  = ’J(  <JP2P)/  2, 0 
K. iFLl  = AAS(  0 ( LI  ) ) *R.!OIL 
i<  -,r  L2  = A .IS  ( 0(  L2  ) ) *PiiuIL 
i<.-iFL3  = +AAS(  0(  L3)  ) *RtlOlL 

3200  Kl-CF/  (0Xi(  Li ) / ACF(  Ll ) + DXP1/ ACPl  + { k.il'Ll*  DLLT)/  (ACF(Ll) 

+ * * 2*  PtiOl  L)  ) 

F 3=1 , 0/  ( DX?(  Ll)  / ( AC.v(  Ll)*C(  Ll ) ) +0X3/ ( AC3*COo ) ) 

.\4  = 1 . 0/  (DXF(  L 2 ) / (AC.«(L2)*C(  L2)  ) +0XC/  ( ACC *003)  ) 
i'-.5  = 1 , 0/  ( ( UXP/  ( D(  ACP)  *CuP ) + 0X3/  ( AC-3*COD)  + 

+ 1./  ( D(  A.>Pi)  * D ( C 3 P ) ) ) *2,  ) 

67=1.0/  ( DXf  ( u3)/  (AC.J ( L3) *C( L3) ) +DXD/  ( ACu*CvjO ) ) 

6 9= COD/  ( £»:  3/ ACD+DXC/  ACC) 

Rl 0=CO3/  ( ( DXC/A CC  + DXD/  ACD)  *2,  ) 

Rl  l=COD/  ( (0X3/ AC  j+DXD/ACD)  *2,  ) 

I< 3 = 1 . / ( ( DXP/  ( 0(  ACP)  *COP)  +DXC/  ( ACC*COD ) +1 , / ( [)(  A S P 3 ) * D(  CD  P ) ) ) * 2 . ) 
3 1 = D ( U P 1 3)  * At> Pi  i 
3 2 = U P 3 0 * A s P 3 F 
33  = D(  UP2P)  * A S P 2 ? 

3r>='j  P3L)*A.VP3D 

76  = D(  UAo)  *D(  \ s A .? ) *Ol 

jfi=UP2C*AJP2C 

D9  = D( UA3) * D( ASA3) *02 
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'U  )=*JAD*  D(  AbA O) 

C Pl,P2  ?3  3,P,C,D,  OODbJ  IN  OKDbR 

DO  3333  1=1,7 
DO  3333  J=1 , 7 
PP(1,J)=0.0 
3 3 33  1 ( I ) = 0 . 0 

3 300  RP(  1,  1 ) =F.iAool*Ct?Fi'J/  Qk  LT+i<l+CPFN*  RnFL.1  + 31 
PP( 1, 4)=-3l 

3 ( 1 ) = F.-.A;:>bl  *CPFN*  Di  ( TFPl )/  DLLT+(  Rl+CPFN*  R.iFLl ) *TF(  LI) 

PP(  2,  1)=-R.-4FL2*CPFN 

PP(  2, 2)=F  iA  rf:5  2 * C PF  0/  OLLT+  R.  iFL2*C  PFM  + 3 3+ 38 
PP( 2,6)=-38 
PP(  2, 5 ) = - 3 3 

3 ( 2)=F..Aot>2*CPFN*DT(  1TP2 )/ DbLT+0. 3 23*D(  uTrfbJ) 

PP(  3,1)  =-DT(  QLLAKl ) *CPF1\' 

?P( 3,2) =-DT( QLbAK2) *CPFN 

PP(  3, 3)  = F.iAS03*CPP:v  0LLT+35+DT(QLLAK2)  *CPFN 
+ +0T(  OLLAKl)  *CPFN+32 
PP( 3,7) =-35 
PP( 3, 5) =-32 

3 ( 3 ) = F.  i.\;>S  3 *C  PFN  * D P ( TFP3  ) / DLLT+  0 . 2 4 * D ( iiTRL.7  ) 

PP( 4, 1 ) =-31 

PP(  4,4)  =3.iAJ.\>*CP3\V  OL  LT+R9  + R3  + R5  + 3 1 + 36  + R1 1 
PP( 4 , 6 ) =-R9 
PP( 4,7)=-Rll 
P?( 4, 5)=-Io 

»(  4)=J.iAoS*CP3N*OT(  r.JO  )/ DbLT+36* D(  rA)+R3*i’v»(  Ll)  + 

+ C 2*  D(  1ST)  -C  2*  ( DT(  ?».-!) +4  60.  )**-1  + 0,  1 2 5*  D(  HT*LJ) 
pP(  5,6)  =-R8 
PP( 5, 2) =-33 
?P(  5,3)  =-32 
PP( 5, 4 ) =-R5 

PP(  5,5  )=D(  P. ,Ao3)  *CPPU/ DbL'f+3  3 + R5+3  2 + R3 

i(  5 ) = D ( P.  iAoS  ) *CPPN'*  l)P(  TPii )/  DL.LT+0,  137*D(  LTRLJ) 

PP( 6,4) = -R9 
PP(  6,5)  =-!<« 

3P(  6,  7 ) - - i<  1 0 
PP(  6,  ?. ) = -33 

PP(  6,  6)  =C.iA3b*CPi3D/ObLT+i<4  + Rt3  + r;9  + KlO+33  + 39 
}(  6)  =C.iA3o*CPJW*DI’(  ICN)/  DLLT+R4*  fw(  L2  ) +39 *D(  TA ) +C  3*  D(  T^T ) 
+ -C 3*  ( t>T(  rCR)  +460.  ) **4+.  125*D(  ilTRtJ) 

?P( 7,3) =-35 
pp(  7,4)  =-r:ll 
PP( 7, 6)=-RlO 

PP(  7,  7 ) = 0 ( PD; iAbo ) *C PUfJ/  DLLP+R7+R10+R1 1+85+8 10 

L(  7 ) = D(  PD.;A3b)  *CP‘3iv*Dr(  PON )/ DLLT+R7*  l‘W{  L3  ) +3 10*  D{  TA) 

+ +C4*Q(  PJ  ,n)  -C4*  ( DT(  i’DN)  + 460.  ) **4 
3600  CALL  SI.lULTf  PP,3,7,  IbRROR) 

DT(  TF  Pi ) =3  ( 1) 

DV(TFP2)=3( 2) 
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0 . 51 . 7 (Continued) 


0T( PFP3)=3( 3) 
DT(  l’B.vl ) =3 ( 4 ) 
DT(  TCK' ) =!3  ( 6 ) 
DT( TDM ) = 8 ( 7) 
DT(  I P J ) = 3 ( 5) 
TF( L2)=3( 2) 
TF( L3 ) =3 ( 3 ) 

TC ( LI ) =3 ( 4 ) 
TC( L2)=3( 6) 
I'C(  L3)=B(  7) 

1.N  0 
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6.61  SUBROUTINE  TRSVR61 


TRSV61  models  a hypothetical  constant  pressure,  constant  temperature 
reservoir  that  can  he  used  in  test  simulation  work  as  sketched  in  Figure 
6.61-1.  The  input  pressure  is  mainuained  without  fluctuation  while 
the  flow  rates  are  adjusted  to  meet  the  line  requirements.  A maximum 
of  four  connections  can  be  used. 

This  subroutine  calculates  the  fluid  and  wall  temperatures  of 
the  component  at  each  connection. 


FIGURE  6.61-1 

TYPE  NO.  61  CONSTANT  PRESSURE  RESERVOIR 
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6.61.1  Math  Model 


The  thermal  math  model  for  the  reservoir  includes  heat  transfer 
to  and  from  one  to  four  connecting  line  segments.  They  can  be  either 
downstream  or  upstream  of  the  reservoir.  To  understand  TRSV61  we  shall 
look  at  a hydraulic  system  with  two  reservoirs  connected  by  a line  as 
showi  in  Figure  6.61-2.  The  line  is  downstream  of  reservoir  one  and 


FIGURE  6.61-2 

RESERVOIR  NODE  REPRESENTATION  FOR  SAMPLE  SYSTEM 


upstream  of  reservoir  two.  As  is  discussed  in  subroutine  TLINEA.  the 
line  is  divided  into  equal  segments.  In  Figure  6.61-2  the  temperatures 
of  the  fluid  and  wall  of  reservoir  I are  D(TTF) , and  D(ITC),  the  temperature 
of  the  fluid  and  wall  of  the  line  segment  connecting  reservoir  1 are  TLF^ 
and  TLWj,  the  temperatures  of  the  fluid  and  wall  of  the  line  segment  connecting 
reservoir  2 are  TLF^and  TLW.,,  and  the  temperatures  of  .he  fluid  and  wall  of 
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reservoir  2 are  DCITF^  and  DCITC^  • For  downstream  connecting 
line  segments,  such  as  these  similar  to  segment  1 in  Figure  6.61-2, 
the  subroutine  assigns  the  temperatures  of  the  reservoir  fluid  and 
wall  as  end  conditions  of  the  reservoir,  and  boundary  conditions  of 
t he  first  line  segment, 

TF(L1)  - D(ITF)1 

TW(L1)  = D(ITC)1 

For  upstream  connecting  line  segments,  such  as  those  similar  to  segment 
2 in  Figure  6.61-2,  the  subroutine  assigns  the  temperatures  of  the 
reservoir  wall  to  the  reservoir  connection,  or  the  boundary  condition 
of  the  line  segment 

TW(L2)  = D(ITC), 

and  also  assigns  the  temperatures  of  the  fluid  entering  the  reservoir 
to  the  temperature  of  the  line  segment,  TF(L2)  = TLF^.  Note  however 
that  the  temperature  of  the  fluid  in  reservoir  2 is  DflTF^  and  eventually 
the  fluid  entering  reservoir  2 will  equal  TLd^ • In  the  hydraulic  math 
model  the  input  constant  reservoir  pressure  is  assigned  to  the  reservoir 
node  number. 

6.61.2  Assumptions 

1.  Fluid  and  wall  temperatures  of  the  reservoir  remain  constant, 
except  the  fluid  entering  a reservoir  makes  the  reservoir  fluid 
the  same  temperature  as  the  fluid  in  the  connecting  line. 

2.  The  reservoir  is  assumed  to  have  an  infinitely  large  gas  volume 
so  that  the,  pressure  remains  unchanged. 

3.  The  interface  conductance  between  the  reservoir  walls  and  the 
line  walls  is  infinite. 
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6.61.3  Computation  Methods 


SECTION  1000 

The  number  of  active  reservoir  connections  is  determined  from  the 
NC(  ) array.  A DO  loop  is  then  set  up  to  initialize  all  the  connecting 
line  wall  and  fluid  temperatures. 

SECTION  2000 

The  node  number  of  the  reservoir  is  determined  and  the  flow  into 
and/or  out  of  the  reservoir  is  summed  for  each  active  connection. 


D(4)  = D(4)  + QR 

Counter,  L(6),  is  incremented  by  1 each  time  an  entry  is  made  until  the 
counter  is  equal  to  the  number  of  active  connections.  Once  the  total 
net  flow  has  been  determined,  QN(N)  is  calculated 

QN(N)  = D (PRESS)  * 20.-D(4) 

An  external  pressure  array  is  set  to  a constant  value 

PEX(N)  =20.0 

The  total  flow  and  counter,  L(6),  are  then  set  to  zero. 


SECTION  3000 


The  number  of  connecting  line  segments  and  flow  direction  are 
first  determined.  Property  values  are  assigned.  The  exiting  fluid  and  all 
wall  connection  temperatures  are  assigned.  The  assigned  values  are  put  into 
arrays  TC  and  TF  in  /TRAMS/. 

6 . 61 . A Variable  Listing 


Variable 

D(ITC) 

D(ITF) 

Q(LI) 

N 


Description  Dimension 

Initial  temperature  of  the  reservoir  walls  °F 

Initial  temperature  of  the  reservoir  fluid  °F 

Flow  in  connector  I CIS 

Reservoir  node  number 
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Variable 

Description 

Dimensions 

D (PRESS) 

Pressure  of  reservoir 

PSI 

TF (LI) 

Temperature  of 

fluid  leaving  reservoir 

°F 

TC (LI) 

Temperature  of 
connection  I 

reservoir  wall  connected  to 

°F 
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6.61.5  Subroutine  Listing 


S'J'5KOUTINJL  TR LVObl  (0,DT,0D,L) 

C ***  RI.VI3L0  A 'MUST  5,1175  *** 

co.-i.iO-!  /r,n  ;o/P(  31 ))  ,o(  300)  ,C(  300)  ,tc(  3005  ,tw(  300) , i'V(  300) , 
+ ACF(  301)  , ACm ( 310)  , D::r(  300)  , TI..L , OLLT , PI , ULIaL , U L 
C0-I..0.4  /CGt.P/L£‘YPL  { 10)  ,UC(  10)  , KTuiP(  00)  , I.iO,  I.  IT-;,  lUtL 
CO.. .10  i / oT^ADY/PN (00)  , OM (00)  , PI  X(  00)  , PDLbG( 90)  , OL(00)  , 

+ , n , 71  , PUP,  POO-/.1,  NMOOL^ILbG,  *iCP.l,TLft.i, 

A LI  3wICO.J,I‘iV,I»JX,I'13,\’:jP(90)  , -JDw.>i(90)  , NLL,b.»(  90)  , 

+1 LLGAD(  0 0 ) , I Ll  0(  1000) 

CO  -,.iO  : /FLIJIVATPRI  G,CP,CPf.*',FTr,,iP,  ?KOD(13,  3) 

I IT'. Ol.?  ° 

7T-.I  0(l),1i‘(l),0.7(l),L(l) 

O \?A  I Cs/1/,1  TF/  ?/  , X T C/  3/ 

I?(li.‘JTrO  1001,2000,3000 
lino  ck; i uni- 
it  4 ) = 0 , 1 
.1CI=.1C(  I-v’O) 

L(  6 ) = -JCI 
L ( O ) = 0 

00  nil  1 = 1,' Id 

L = MT) 

rr-'(  ,i)=r(  I f--) 

TC  ( !)=L(  I !’C) 

1711  CO’TIlUb 
It  VJ  > ! 

2001  C-7..-VI  *UL 

;=.n  ; *(  r-.i-  l) 

r _ ^ 1 

0 T = I.LL..I.  IT  - >' U. i 5 1;  I-  I i LLG 

i?(  i ix.  n . l)  go  r ) noo 

7?  = -71 

'■  = ',”.!P(  I U.L) 

1500  7(  a )=')(-!)+ 'u 
L ( 0 ) = L ( 6 ) + 1 

C ..PI  I‘L(  6,001)1  ILL,  J,vl,?UP 

107  i'7f..\T(  MX, *?:"??*,  2T17, 2,A2.  5) 

I'-’t  L(  6)  . iL.  L(  r>)  ) IU.TJM 

? !(.!)  = ')(  P:<l.3Y)*?9.-*)(  1 ) 

pl ::(  o = 20.  i 
i(  n=o.  i 
r,(6)=o 

C D ’(  0=L(  ‘91*L  -•-■) 

i'Li’U'.U 

3007  CO  Il’X.OlL 

70  31-H  1 = 1,  Id 
i=L(  1) 

I ^ ( 1(0). GT .0,0)  JO  i'u  7006 
T?( -,)  = ■;(  I rp) 

3706  I'C(  ;)  = 1(  ITC) 

3 00°  Cu» ITT  ;UL 
,?LTUP  1 
\.  !!> 
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6.62  SUBROUTINE  TRSVR62 


TRSVR62  simulates  a bootstrap  reservoir.  The  subroutine  can 
accommodate  up  to  four  low  pressure  lines  along  with  a high  pressure 
(bootstrap)  line,  as  shown  in  Figure  6.62-1.  The  calculated  variables 
are,  the  reservoir  fluid,  wall  and  piston  temperatures. 


Figure  6.62-1 

TYPE  NO.  62  BOOTSTRAP  RESERVOIR 
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6.62.  1 Math  Model 


The  thermal  math  model  for  the  reservoir  Includes  heat  transfer 
from  three  to  fi^e  connecting  lines,  one  high  pressure  line,  at  least 
one  upstream  line  and  at  least  one  downstream  line.  Three  reservoir 
nodes  are  considered,  one  wall,  one  piston,  and  one  fluid  node.  Lhere 
are  two  nodes,  one  fluid  and  one  wall  for  each  connecting  line  segment, 
and  in  our  model  we  will  consider  five  lines  or  ten  nodes,  so  that 
there  are  a total  of  thirteen  nodes  in  the  math  model,  as  shown  in  figure 
6.62-2. 


BOOTSTRAP  RESERVOIR  AND  LINE  NODE  REPRESENTATION 


GP77-00M-20 
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The  temperatures  of  the  high  pressure  line  segment  nodes  are  TW(Ll), 
and  TF(L1)  for  the  wall  and  fluid  respectively.  The  two  upstream  line  node 
temperatures  are  TW(L2),  TW(L3),  TF(L2),  and  TF(L3)  for  the  wall  and  fluids, 
and  the  two  downstream  connecting  line  segment  node  temperatures  are  TW(LA), 
TW(L5),  TF(LA)  and  TF(L5)  for  the  wall  and  fluids  respectively.  The 
reservoir  fluid  temperature  is  DT(TRF),  the  wall  temperature  ts  DT(TR), 
and  the  piston  temperature  is  DT(TP).  Not  every  case  has  five  connecting 
lines,  but  for  this  discussion  there  will  be. 

Three  heat  balance  equations  are  written  to  solve  for  the  through 
reservoir  node  temperatures,  using  the  reservoir  and  line  segment 
material  properties  and  dimensions,  the  external  atmosphere  and  structure 
temperatures,  and  TW(L1).  TW(L2) , TW(L3) , TW(L4),  TW(L5) , TF(L1) , TF(L2) , 
ar  t TF(L3)  (note:  TF(L4)  and  TF(L5)  equal  DT(TRF),  see  i.  ssumptions)  . 

The  first  equation  represents  two  modes  of  heat  transfer  relative  to 
the  reservoir  fluid. 

la)  convection  to  and  from  the  reservoir  walls 

B1  * (DT(TR)-DT(TRF) ) 

where  B1  is  a convection  coefficient  equal  to 

DT(ASFR)  * w(UFR) 

lb)  convection  to  and  from  the  piston  node 

B2  * (DT(TP)-DT(TRF)) 

where  B2  is  also  a convection  coefficient  equal  to 
D(AREA1)*D  (UFR) 

2)  heat  transfer  due  to  mass  transfer  into  the  reservoir  volume 

from  the  connecting  lines  segment  MCp*(TF(L2)-DT(TRF))  for  line 
two  and  $Cp*(TF(L3)-DT(TRF)  for  line  three  where  MCp  is  the 
mass  flow  rate  term  equal  to  RMF(I)*CPFN  and  RMF(I)  is  equal  to 
Q(L(I) )*RHOIL  with  1=2  for  line  two  ana  1=3  for  line  three. 
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These  heat  tr°-  er  terms  then  combine  to  produce  the  heat  balance 
t'or  the  reservoir  fluid  node 

MCp  *(DT(TRF)-DT(TRF)  ) = Bl* (DT (TR) -DT (TRF) )+B2* (DT (TP) -DT (TRF) ) 

DELT  0LD 

+ MCp*  (TF  (L2)  -DT  (TRF)H-MCp*  (TF  (L3 ) -DT  (TRF) ) 

(1) 

where  MCp  is  equal  to  FMASS*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  tin  rrservcir  wall  node. 

la)  convection  to  and  from  the  reservoir  fluid 

I 1*  (DT  (TRF''  -DT  (TR) ) 
where  B1  ■•13  defined  previously, 
b)  convection  fo  and  from  the  external  atmosphere 
B3*(D(TA)-D'1/TR)) 

where  B3  is  eq  iiu  to  D(ASAC)*D  (UAR) 

2a)  conduction  t > ai  d from  the  nnecting  line  segment  walls 
R(I)  * (TW(L(I))-DT(TR)) 

where  R(I)  is  the  traduction  coefficient  equal  to 
1.0/(DXF(L(I))/(ACF(LC),*C(L(I))  +DXR/ (ACK*CR) ) 
and  1=  1 to  5 for  each  of  the  five  connecting  lines 
considered . 
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b)  conduction  to  and  from  the  piston  node 
R9* (DT (TP) -DT (TR) ) 

where  R9  is  equal  to  1, 0/(DXR/(ACR*CR)+DXP/(ACP*CP)+1.0/ 
(AC?*2.0*D(CRP))). 

3.  radiation  exchange  with  the  surrounding  external  structure 
CIP* (D (TST)-(DT (TR)+460)**4) 

where  CIP  is  a radiation  coefficient  equal  to  SIGMA*EPSION* 
SHAPF*D ( ASAR) 

These  terms  then  combine  to  produce  the  heat  balance  for  the  reservoir 
wall 

MCp  * (DT (TR) -DT (TR) - n)  = Bl* (DT (TRF) -DT (TR) )+B3* (D (TA) -DT (TR) ) 
DELT  0LD 

+ 5 R(I)*(TW(L(I))-DT(TRF))  +R9*(DT(TP)- 

1=1 

DT (TR) +CIP*D (TST) -CIP* (DT (TR) +460.) **4 
where  MCp  is  equal  to  D(RMASS)*CPRW 
The  third  equation  represents  two  modes  of  heat  transfer  relative  to 
the  reservoir  piston 

la)  convection  to  and  from  the  reservoir  fluid  node 
B2*  (DT (TRF ) -DT (TP) ) 
with  B2  defined  previously 

b)  convection  to  and  from  the  high  pressure  fluid 

B5* (TF(Ll)-DT  (TP)) 

where  B5  is  equal  to  D(UAR)*D(AREA2) 

c)  convection  to  and  from  the  external  atmosphere 

B4* (D (TA) -DT (TP) ) 

where  B4  is  equal  to  D(ASAP)*D(UAR) 
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2.  conduction  to  and  from  the  reservoir  wall  node 

R9* (DT (TR) -DT (TP) ) 

where  R9  has  been  defined  previously 

3.  radiation  exchange  with  the  surrounding  structure 

C1PP* (D(TST)  - (DT(TP)+460.)**4) 
where  C1PP  is  a radiation  coefficient  equal  to 
SIGMA*SHAPF*EPSION*D(ASAP)*.69. 

.69  was  used  since  the  shape  factor  for  the  piston  is 

not  nearly  equal  to  .96  but  .96*. 69  = .6624 

These  terms  than  combine  to  produce  the  heat  balance  equation  for  the  piston 

MCp  * (DT(TP)-DT(TP)0LD)  = B2* (DT (TRF)  -DT (TP) )+B5* (TF(L1) -D " (TP) ) 

DELT  + B4* (D (TA) -DT (TP) )+R9* (DT (TR) - 

DT (TP) )+ClPP*D (TST) -C1PP* (DT (TP) 

+460. )**4  (3) 

where  MCp  is  equal  to  PMASS*CPPW 

Equations  (1),  (2),  and  (3)  are  solved  for  the  appropriate  temperatures 
A thermal  model  of  the  above  heat  transfer  terms  for  the  reservoir 
is  shown  in  Figure  6.62-3. 
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DCAPT (3) 
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FIGURE  6.62-3 


CIP(N)  = 
MCP*DCAPT (N)  = 


THERMAL  MO'  :EL 


TFftJ) 
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RADIATION 

GENERATION 
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The  steady  state  high  and  low  reservoir  pressures  are  determined  as 
follows . 

A sign  convention  is  established  such  that  flow  into  the  low  pressure 
end  is  positive.  A pseudo  leg  (see  Figure  6.62-4)  that  terminates  at  low 
pressure  node  N is  established.  The  pressure  at  the  external  end  of  this  leg 
is  set  as  the  average  of  the  pressure  at  node  N PN(N)  and  pressure  calculated 
for  node  N using  the  piston  area  ratio  times  pressure  at  node  M,  PMN  where: 

PMN  = PN(M) *DT(NAREAR)+DT(EXPRES) 

Any  difference  in  PMN  and  PN(N)  will  produce  flow  in  the  pseudo  leg  and  hence 
an  unbalanced  system.  As  TLEGCAL  balances  the  flows  at  all  system  nocies , the 
pseudo  leg  flow  is  forced  to  zero  which  in  turn  forces  PMN  and  PN(N)  pressures 
to  be  equal. 

(PMN  + PN(N))/2 

l 

Y 


RSVR62  STEADY  STATE  FLOW  DIAGRAM 
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< 


6.62.2 


Assumptions 


1.  The  fluids  exiting  from  the  reservoir  are  equal  to  the  calculated 
value  of  the  fluid  in  the  reservoir,  DT(TRF). 

2.  The  emissivity  of  the  walls  remain  constant,  .3 

3.  The  entire  mass  of  the  reservoir  walls  is  at  the  same  temperature 

4.  The  temperatures  external  to  the  reservoir  remain  constant 

5.  The  interface  conductance  between  the  reservoir  walls  and  the  line 
segment  walls  is  infinite. 

6.  Seal  friction  is  zero 

7.  Complete  mixing  occurs  in  the  fluid  volume. 

6.62.3  Computational  Methods 

SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and 
raised  to  the  fourth  power,  and  the  default  values  are  assigned. 

SECTION  2000 

This  section  sums  the  flows  into  and/or  out  of  the  low  pressure 
chamber  as  the  entry  is  called  for  each  active  connection.  It  also 
determines  overboard  flow  at  the  high  pressure  node  (M)  and  low  pressure  node  (N) . 

SECTION  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calculated. 

The  flow  direction  is  determined.  (The  program  is  set  up  with  the  flow 
entering  connection  line  one  (LI)  and  leaving  through  connection  lines  four 
and  five  (LA)  and  (L5) . During  the  calculation  the  flow  direction  is 
checked.  If  the  flow  has  reversed  flow  direction,  the  program  reassigns 
connection  numbers  so  that  the  flow  still  enters  connection  lines  three  and  two)?. 
Some  coefficients  are  then  recalculated  if  the  flow  is  reassigned.  A 3x3 
matrix  is  loaded  and  the  mathematical  equations  are  solved  for  DT(TRF), 
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DT(TR)  and  DT(TP)  and  stored  in  the  B computational  array.  The  calculated 
values  are  assigned  to  their  proper  storage  locations  and  the  boundary 

conditions  are  assigned  to  arrays  (TC  and  TF)  in  common  /TRANS/  for  distribution 
throughout  the  entire  program. 

6-62.4  Approximations 

1.  Shape  factor  for  the  piston,  SHAPF  is  multiplied  by  .69  since 
this  is  a good  representation  of  the  real  shape  factor  piston 
to  the  surrounding  structure,  .96*. 69  = .6224 
6.62,5  Limitations 


Reservoir  62  is  limited  to  four  low  pressure  connections  and  one 


high  pressure 

connection. 

6.62.6  Variable  Listing 

Variable 

Description 

Dimensions 

A(  ) 

Dummy  computational  array 

ACP 

Cross  sectional  area  of  the  piston 

2 

IN. 

ACR 

Cross  sectional  area  of  the  reservoir  walls 

2 

IN. 

D(AREAl) 

Piston  surface  area,  low  pressure  side 

IN.2 

D(AREA2) 

Piston  surface  area,  high  pressure  side 

IN.2 

D(ASAP) 

External  surface  area  of  piston 

IN.2 

D(ASAR) 

External  surface  area  of  the  reservoir  walls 

IN.2 

DT(ASFR) 

Internal  surface  area  of  the  reservoir  walls 

2 

IN. 

B(  ) 

Dummy  computational  array 

B1,B2,B3,B4, 

B5 

Dummy  variables 

C1P 

Radiation  coefficient  for  the  reservoir 

C1PP 

Radiation  coefficient  for  the  piston 

CJ 

Mechanical  equivalent  of  heat 

IN-LB  /WATTS-SEC 

CP 

Thermal  conductivity  of  the  piston  node 

WATTS/IN. -°F 
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Variable 

Description 

Dimension 

CPPW 

Specifc  heat  of  the  piston  node 

WATTS-SEC/LB  - 
m 

CPRW 

Specific  heat  of  the  reservoir  walls 

WATTS-SEC/LB  - 
m 

CR 

Thermal  conductivity  of  the  reservoir  walls 

WATTS/ IN-0 F 

D(CP.P) 

Interface  conductance  between  the  piston  & 
reservoir 

watts/in2-°f 

DXP 

Distance  from  the  piston  node  to  the  wall 
interface 

IN. 

DXR 

Distance  from  the  reservoir  node  to  the 
line  segment  wall  interface 

IN. 

EPSION 

Emissivity  of  the  walls 

PMASS 

Reservoir  fluid  mass 

LB 

m 

D(ITF) 

Initial  temperature  of  the  fluid 

°F 

D(ITR) 

Initial  temperature  of  the  reservoir  walls 

°F 

KTYPE 

Dummy  variable 

— 

D(MTYPE) 

Reservoir  material  type 

— 

D(PERC) 

Percentage  of  DCAPT  added  to  fluid 

— 

D (PHEIGHT) 

Piston  height 

IN. 

PMASS 

Piston  material  mass 

LB 

m 

D(PTHICK) 

Piston  wall  thickness 

IN. 

D(PTYPE) 

Piston  material  type 

R 

Dummy  array 

RHOIL 

Density  of  the  fluid 

LB  /IN.3 
m 

RHOP 

Density  of  the  piston  mass 

LB  /IN.3 
m 

RHOR 

Density  of  the  reservoir  mass 

LB  /IN.3 
m 

D(RMASS) 

Mass  of  the  reservoir  walls 

LB 

m 

Rl,R9 

Dummy  variables 

— 
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Variable 

Description 

Dimensions 

SHAPF 

Shape  factor  -for  the  walls 

— 

SIGMA 

Stefan-Boltzmann  radiation  constant 

WATTS/ IN  2-°r' 

D (STROKE) 

Total  piston  stroke 

IN. 

D (TA) 

Temperature  of  the  surrounding  atmosphere 

°F 

TFO 

Dummy  variable 

— 

DT(TP) 

Temperature  of  the  piston  mode 

°F 

DT(TR) 

Temperature  of  the  reservoir  wall  node 

°F 

DT(TRF) 

Temperature  of  the  reservoir  fluid  node 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 

D(VAR) 

Heat  transfer  coefficient  external  to  the 
reservoir 

watts/in2-°f 

D(VFR) 

Heat  transfer  coefficient  internal  to  the 
reservoir 

watts/in2-°f 

DT (VOLUME) 

Calculated  volume  of  the  reservoir 

3 

IN. 

D(VOLl) 

Initial  volume,  low  pressure  side 

IN.3 

D(VOL2) 

Initial  volume,  high  pressure  side 

IN.3 
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6.62.7  Subroutine  Listing 


31IB.J0UTI.mL  TKSVR62  ( D, LT, DD,  L' 

C****  PLVISLD  JANUARY  24,  1076  ****' 

CQ1-..iO;-i  / IVANS/ P(  300)  , 0(  300)  ,C(  300)  ,TC(  300)  ,T»;(  300)  ,TF(  300)  , 
+ACF(  300)  ,ACa(  300)  ,OXF(  300)  , TT.'ib,  Ofc.LT,  tI,NLI  n,L,MLL 
COi..l  ON  /CO  A P/  LTV  ?l  ( 9 0 ) , NC  ( 9 0 ) , KT 1. 1 ? ( 9 9 ) , I N O , I t NTR , I .-I  L L 
CO  I.I.0N  /3  FbADY/P\'  (90)  ,0:1(00)  ,PLX(90)  ,PDLLG(90)  ,CL(00)  , "A  , ^3  , 31, 
+ JUP,  POOiv  4 , N.IODb , NLLG,  f'JCP!i , PhU. I , Ll-Gti , ICON , INV,  INX , IiJZ  , 

+',,JP(  9 0 ) , N!VM ( 00 ) , K’l.Lhi .(  0 0), 

+ILLGAU(  90)  , TLL^(  1000) 

CO  mO\«  /FLUI O/ATPULS,  CF , CPPM , FTb.i  P,  ?1<0P(  13,  3) 

OI  Hl’JSIO.l  0(1),  OT ( 1 ) , DO(  1 ) , L(  1 ) 

DI.iLUSTON  A (3, 3), 8(3),  R.iF(  6 ) , rFO(  6 ) , R(  6 ) , 0CAPT(  5) 

IUTbGLR  ArtlAl,  'At  " 2,  VOL1 , VOL2,  STROKK,  0NLT,  LXPRbb,  P2, 

+ ^.iA bS, ALAR,  UAA,  i.l F 7,  PMLIGhT,  PTMICK , ASAP,  PL  PC, 

+ , iTY DL , PTY PL , TA , TST , ITF  , ITR,  As F R , VOLUfi t , TR , TP , Tf.F , C R P 
D AT  A A CL  A 1/  4 / , A P LA  2/  5/  , VO  L 1/  6/ , VOL  2/  7/ , I cl  POS/  3 / , .iTY  PL/ 1/ 

+ , PTYPL/2/,  R.lASS/3/,  PiiLIJHT/9/,  r>THICK/10/ 

+ , ASAP/11/ , ASAP/12/  , UA .!/ 1 3/  , UF .’  / 1 4 / , PL RC/ 1 7/ , S T R O K L,/ 16/ 

+ , TS  P/ 1 1/ , TA/ 1 9/ , I TP/  2 0/ , ITR/  2 1/ , C P.P/ 1 6/ 

C OT  ARRAY  VAPlAlLi.b 

OA  r.A  0 4 1 T/ 1/  , b X ?Rb  3/ 2/  , L.ARLAR/ 3/  , P 2/ 4/ , TP F/ 5/  , Tk/ 6 / , TP/ 7 / , 

+ ASP  R/  V , VOLO.iL/9/ , . 1AXVCL/1 0/ 

OAT  A SKV  A/  ,3491-11/  ,S  HA  °F/ 1 . 0/ , b PSION/ . 3/  , C J/  0 . 3 5/ 

IP(  I.-.R'Ti-)  1000,200  0,3000 

1000  COwTIOUL 

PTYPt  -PISTOL  i AT  u,  RIAL  TYPl 
i ITY PL  = R3VR  CASL  wAThPIAL  TYPL 
ARLA1  = PISTON  \Rb\(  P;Il-  IGHT*  P.iI  DTri ) 

Art  A 2 =H 1 3.1  ORLSS'lRb  ARL.A 
F. i.ASO  =R SVP  CASL  ••lAS.'r  ( L iS.  ) 

• JCI  = i ! ’Ji j u L R OF  CON.-JLCTIOHS  ( LT\:13  TOTAL) 

ASAP  = S'JRF ACL  ARL.A  PTSTOH  TO  AnOIiiGT 
VOLl  = VO  LU.it,  OF  PLUTO  II  CL’AoPLR  .AT  ZLRO  STROKl 

V°L2  ^ VOLlJib  OF  FL'JI. 3 hi  SIGH  PfiLSSURc.  CFA.TUR  AT 
2L,:0  STROK L 

STROLL  = .:AX  PISTON  STROLL 
0 ( TS _")  = ( O ( rev ) + 4 6 0 . ) * * 4 
I .’IT  A LIZ  I JO  T l;.  Pi,  PA  CjPr,.-> 

.jci-  :c(  i no) 

00  1001  1 = 1, -JCI 
TF(  L(  I ) ) = 0(  ITF) 

TC(  L ( I ) ) = D(  ITR) 

1001  CONTI. 1UE 

:>T(  r,<F)=o(  itf) 

Or(T:-;)=0(  ITR)  :1 

OT ( T P ) = O ( IT :< ) 

.■lTY?L  = 0(?rYPL)+,001 
RUOP=?ROP(  .JTYPl  , 2 ) 

I F ( D ( iJ/A ? ) . h O.0.0)  D(  'JA.r<)  = . 0055 
IF(  0(  U l’.<)  .10.0.0)  I)(UF.7)  = .00 


C 
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6.62.7  (Continued) 

DT(  V'jL*)..L  ) =D(  ARt-.M  ) *D(  I IPOs) 

DT(  1AXV0L)  = D(  STROXL) *D(  Ai’LAl  ) +0(  V0L1 ) 

TP ( A3FR)  =D(  AKL.A1)  + 2.*0T(  VOLU..n)/D(  ARl.Al ) *0(  pfir. I'UlT ) 
++2.*DT(  VOLU.lli)/D(  PriMviHT) 

I F ( 0 ( ASA»)  .60. 0.0)  D ( A S A P ) = D ( A R L-,  A 2 ) * . 0 6 

0(  R.tASS)  =D(  R.iASG)  *.03-D(  P’i’ilICK ) * ( D(  ARl.Al ) + 0(  ARL.A2)  ) *i<l.OP 
DT  ( 1 1 A R lv A R ) = 0 ( A K t A 2 ) / D ( \ R l . A 1 ) 

DV(  l.X»PLS)  =\TPRbo*  { D(  API. A l ) -D(  ARLA2 ) ) /D(  ARL.A  1 ) 

DT(0.U.T)=0.0 

L(  7 ) =0 

U 6)=SC( I 10) 

Rl.TiJKI; 

C*  * * * * STEADY  GTAT‘.  olCTDI!***** 

r> 

Nw 

2000  CO.VxI  int 


: IS  ? !t.  300T  3 TRAP  MOOL,  -j  IS  T.1L  LOv,  PULSGllUL  FOOL 

L(  7 ) = L(  7 ) + 1 

IF(  ICOK.Mi:.  1)  GO  TO  2600 
. i = HDvJN  ( I \ t L ) 

L(  R)=.i 

I?(  IMX..4L.  1)  GO  TO  2700 
.1=  H1P(  I\LL) 

GO  TO  2000  ( 

2600  ?R=?1  * 

■:=  iD.o:(  i : i u l ) • “ 

L(9)=.l  , t-.***'" 

I F ( 1 1': y . 1)  GO  PO  2700 

i=  WP(  I ’LL) 

2700  DT  ( on  i.T ) = DT  ( OM LT ) + OP 
2200  I P ( L ( 5 ) . . i L . L ( 7 ) ) RtYUr.w 
• .»L(8) 

O=t(0) 

IP(  .I.  L 7,.i)  aRTTI.  (6,2000) 

I F ( ? M ( . : ) .0.0.0)  PW(  i)  = 3000. 

I :’(  ? !(  0)  .L  ?.  0.0)  P0(-!)  = P"1(  l)  *FT(0MM.AK)+,-)?(  LXPRl-S) 

P. , .1  = ?:  ’ ( . i ) * DT  ( li  A R t A R ) + AT  ( L X ? P i.  3 ) 

•\'C'i)  = ( ( P-I.J+  P x ( '))  ) * 2 0 . ) / 2 . - AT  ( A"!  t,T ) 

A.O  ( . . ) = DT  ( r'0  l T ) * D T ( .!  A i< LA  R ) 
rxi  (P2)  =?'’(.■:) 

PL  X ( o ) = 2 0 . 

DT( OOlT) =0.0 
L{  7 ) =0 

2000  FDR.iAT(5X,-15i:RSVK62  PLG'JI TuO  MODt.S  FOR  30GTSTPA  FLO. 

3000  COGTI  RJL 

X i'Y  tL= D ( 1 7t'Y PL ) + . 0 0 1 
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6.62.7  (Continued) 


RKl  fi'if  A s r«l  r 


'•lTYPb=D(PTYPL)  + . 001 
CR=PROP( KTYPL, 3) 

CP=PROP(l'H,Y^L/  3) 

CPR,»  = PPOP(  XTYPt , 1 ) 

CPPiJ=PPOP(  WTYPL/  1) 

KHOR=Pm)P(  KTYPL,  2) 

UCT  = '1C(  I,!D) 

RJOIL=336.  4*RIIO(  OT(  TRF)  , DT(  P2)  ) 

DO  3003  1=2, NCI 

300  3 DT(  VOLU.'it  ) = 0?(  VOLU.iL)  +\)(  L(  I ) ) *DLLT 

I r ( n-r  ( V°  L( J,,  i . ) . n-r . DT  ( . : A x VO L ) ) Dl’  ( VO LL1  1 b ) = i)T  ( . i A X VO L ) 

li  ( n P(  VOLU.ti. ) . LT. D( VOL1 ) ) ,vPITL(  6, 900) 

000  t'Ont.A?(  10X,  35.)****  ifAJWI.MG  TML  RbSbRVDlR  IS  b>.PPY 
+ lOii-PKOOP.V;  CO'ITI'IUI-JO,//) 

IF(  Di'(  VOLU.-m)  .LP.O(VOLl)  ) OT(  VOLU.ih)  =D(  VOLI) 

F.i’\,').S  = OT(  70L0..L)  *RdOIL 

•)XR=n(  STRuniO/o.O 

aoi  =d(  p.ias:,)/(  r:iop*d(  stkokl  ) ) 

OX?=n(  PM,  I 3i;7)/2.0 

AC P=D(  PTi.'IC ")  *(  D(  ARL\1)+D(  AHLA2)  )/D(  PfiLI  3iiT ) 

P..AoS=(  D ( \r,LM)+D(  AP.LA2)  )*D(  PTHICK)  *P!IOP 

31  = L? ( ASF  ,\ ) * 9 ( OF .: ) 

32  = 0(  Am-  A1 ) * 0(  iJFR) 

0 3=O(  AS  \:<)  *D(  JAP ) 

34=  •)(  ASAP)  *D(  JAP) 

35  = D(  JAr)  *D(  Al<l  A2  ) 

P 9 = 1 . 0/  ( Da  */  ( AC  I? ' * C R ) + DX  P/  ( AC |5*CP ) +1 . 0/ ( ACP*  7 . 0*D(  CR  D ) ) ) 
C I P=S  I S.  iA*  w'!)A?F*  t-PS  I X\'*Q(  As  A R ) 

Cl  ? ?=.')  I '1. . A*  J ; 1 A PF  * L PS  1 0 J*0(  ASAP)  *,69 
P.iF(  L(  1 ) )=A :3S(  C(  L(  1)  ) ) *JUGIL 
DO  3020  1=2, MCI 
TFO( L( I) ) =TF ( L(  I ) ) 

3 220  CO  "riJUL 

• FLUID,  jALTC,  PI. ' T'O'.* , A'OObJ  II  0<DLP 

A ( 1 , L ) = 0 , 9 
\(  ?,?.)  = !. 0 
p.(  1)=0. 0 


3700 


3 ( 2)=0.o 

00  3799  1=2, SCI 

p.-iF(i)=o(l(i)  )*;<soil 

TF(0(  L(  I ) ) . LL.  0.  0)  P.  1 F ( I ) = 0 , 0 

DC  A PV  ( I ) = ( l./iUIOIL)*(  P(  L{  I ) )-£>(  LI ) )/(C0*CPF  .') 

P(  I ) -1. 0/(  OXF  ( L(  I ) )/(  AC.,(  L(  I)  ) *C(  L(  I)  ) ) ^DXX/  ( ACH*CK)  ) 
A(  1, 1)=A(1, 1 )+R.-,F(  I ) *CPFU 
A(  2 , 2 ) = A ( 2 , 2 ) + P. ( I ) 

A(  1 )=B(  1 )+P..;F(  I ) *CPFi!  * I’F  ( L(  I)  ) 
c^)^(2)+r.(  I ) *r.;(  L(  I ) )+R.iF(  I)  *CPFJ*DC.APT(  I ) 
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6.62.7  (Continued) 


R 1=1 . 0/(  DXF(  L(  ] ) ) / ( AC.<(  L(  1 ) ) *C(  L(  1 ) ) ) +DX R./  ( ACR*CR)  ) 
o(  2 ) =3 ( '')+0(R.;A3:j)*Ct>R'.v*DT(  l'R ) /DLLT+31  *T,v ( L(  1 ) )+33*D(  I'A) 

+ +C  I P*D(  TST)  -Cl  P*  ( ( D(  TT< ) + 4 60 . ) * *-1  ) 

3(  1 ) =3 ( 1 ) +F.-iA5S*CPFN* 0T(  PKF)  /OLLT 
A(  1,  1)=A(  1,  1 ) +F.-iA  SS*C  PFti/ DLL  T+3 1+3  2 
A( 1 ,2)=-31 
A(  1,3) =-32 
A ( 2 , 1 ) = - 3 1 

M - »2)  = A(2/2)+D(  P.1.A3S)  *CPd.»/OnLT+3l+33+R9 
M 2,3) = -R° 

3(3,1)  =-32 
M3,2)=-R9 

M 3,  3)  = ?.noS*C”t>../DLLT+3'>+04  + R9+35 

- ( 3 ) = ?.  ,.A;.3*CPlAk*Dr ( TP)  /Dl-  LT+3  4*3(  i'A ) +CI  L>P*D(  Tb  T)  -C I 0?*  {(2(1?) 
+ f •!  6 0 . ) **4)  + 35*TF(  LI ) 

CALL  3I..!iLT(  A , 3 , 3 , I LRLOP  ) 

07( PSF)=3( 1) 
nr(T.v‘)=3(  2) 

DT(TP)=  <(  3) 

AO  3909  1 = 2,  •1C I 
T F ( L ( I ) ) = 3 ( 1 ) 

TC(L(  I)  )=?(?.) 

IF(  9(  L(  I ) ) . '-i.  .0.9)  PF(  L(  I)  ) =TFO(  L(  I)  ) 

3 MO  C01TI..!JL 

RLTiP?  1 
u'mO 


6.62-16 


4 


6.69  SUBROUTINE  T11EX69 

Subroutine  THEX69  simulates  a variety  of  heat  exchanger  configurations 
which  includes  shell,  tube  and  flat  plate  types.  Each  can  have  unidirection 
flow,  counter  flow,  or  cross  flow,  as  shown  in  Figure  6.69-1. 

The  subroutine  calculates  the  exterior  wall  temperature,  the  hydraulic 
fluid  and  cooling  liquid  temperatures,  and  the  interior  wall  temperature, 
of  either  pipes,  fins  or  flat  plates  (whichever  is  considered). 


Cooling 


FIGURE  6.69-1 

TYPE  NO.  69  HEAT  EXCHANGER 
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6.69.1  Math  Model 


The  thermal  math  model  for  the  heat  exchanger  Includes  heat  transfer 
to  and  from  four  connecting  line  segments,  too  hydraulic  segments  and  two 
cooling  segments,  as  shown  in  Figure  6.62-2. 

Cooling 

Liquid  Oil 


FIGURE  6.69-2 

HEAT  EXCHANGER  AND  LINE  NODE  REPRESENTATION 


GP77  00S5-71 
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The  heat  exchanger  is  represented  by  four  nodes,  one  exterior  wall 
node,  one  interior  wall  node  (representing  pipes  or  tubes  etc),  one 
hydraulic  fluid  node,  and  one  cooling  fluid  node.  Each  connecting  line 
segment  (hydraulic  and  cooling)  is  represented  by  two  nodes,  one  fluid 
and  one  wall.  The  temperature  of  the  heat  exchanger  wall  node  is  DT(TEW), 
interior  wall  node  is  PT(TEP),  hydraulic  fluid  node  is  DT(TEF)  and  cooling 
fluid  node  is  DT(TEC).  The  temperatures  of  the  hydraulic  connecting  line 
segment  wall  and  fluid  nodes  are  TW(L1),  TW(L2),  TF(L1),  and  TF(L2).  The 
temperatures  of  the  cooling  liquid  connecting  line  segment  wall  and  fluid 
nodes  are  TW(I/*),  TW(L4),  TF(L3)=D(TEC1) , and  TF(L4)  = TEMPCOT . (Note: 
TEMPCOT=DT(TEC) , see  assumptions). 

Four  equations  are  written  to  solve  for  DT (TEW) , DT(TEP) , DT(TEF) , 
and  DT(TEC) , using  the  heat  exchanger  and  line  segment  material  properties  and 
dimensions,  the  atmosphere  and  structure  temperatures  external  to  the 
heat  exchanger  and  TW(L1)  , TW(L2),  TF(L1)  , TW(L3)  , TW(M)  , and  D(TEC1). 

(Note:  TF(L2)  = DT(TEF) , TW(L3)=D(TECl)  and  TW(L4)  -TEMPLOT,  see  assumptions.) 

The  first  equation  represents  three  modes  of  heat  transfer  with 
the  heat  exchanger  hydraulic  fluid  node: 

1.  Convection  to  and  from  the  interior  wall  (pipe) 

B1*(DT(TEP)-DT(TEF) ) 

where  B1  is  the  convection  coefficient  and  is  equal 
to  UFWIL*ASPP. 

2.  Heat  transfer  due  to  mass  transfer  into  the  heat 
exchanger  from  upstream  of  the  heat  exchanger. 

MCp* (TF(Ll)-DT(TEF)) 

where  MCp  is  the  mass  flow  rate  and  is  equal  to  Q(Ll)* 
RHOIL*CPFN 
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3.  Heat  transfer  due  to  a pressure  drop  across  the  heat  exchanger 

MCp*DCAPTl 

whete  DCAPT  = (1.0/RHOIL)*(P(L1)-P(L2))/(CJ*CPFN) 

These  terms  are  combined  to  produce  the  equation  for  the  heat  balance  for 
the  heat  exchanger  fluid  node. 

MCj>*(DT(TEF)-DT(TEF)  ) = Bl*  (DT  (TEP)  -DT(TEF) 

DELT  UL,U  . ( 

+MCp* (TF (LI) -DT (TEF) ) v 

+ACp  DCAPT1 

where  MCp  is  equal  to  FMASS*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  the  heat  exchanger  exterior  wall  node: 

la.  convection  to  and  from  the  cooling  fluid  node 

B7* (DT (TEC) -DT (TEW)) 

where  B7  is  a convection  coefficient  equal  to  D(UCW)*D(ASCW) 

lb.  convection  to  and  from  the  atmospheric  air 

B5* (D (TA) -DT (TEW) ) 

where  B5  is  the  convection  coefficient  and  is  equal  to  D(UAW)* 
D(ASAW) 

2a.  conduction  to  and  from  the  hydraulic  fluid  connecting  lines 

RI* (TW (LI ) -DT (TEW) ) 

where  RI  is  the  conduction  coefficient  and  is  equal  to 
1.0/ (DXF(LI)/ (ACW(LI)*C(LI))  + DXE/ (ACEW*CEW) ) and  1=1  for 
line  1 and  2 for  line  2 

2b.  conduction  to  and  from  the  cooling  fluid  connecting  lines 

R3* (TEMPCIN-DT (TEW) ) and 
R4*  ( TEMPCOT-DT  (TEW) ) 

where  R3=R4  and  are  equal  to  1.0/(2.0*DXE/ACEW*CEW)) 
and  TEMPC0T=DT(TEW)0LD 
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3.0  radiation  exchange  with  surrounding  structure 
CIP* (D(TST) - (DT (TEW)+A60 . ) **A) 


where  CIP  is  equal  to  SIGMA*EPSION*SHAPF*D (ASAW) 

These  terms  combine  to  produce  the  equation  for  heat  balance  for  the 
exterior  wall  node: 

MCp*  (DT  (TEW)-DT  (TEW)QL^)  = B7*(DT(TEC)-DT(TEW))  + (2) 

DELT  Rl* (TW(L1) -DT (TEW) )+R2 (TW(L2) -DT (TEW) ) 

1st 

+R3  * (TEMPC IN-DT  (TEW)  ) +RA  (l’EMPCOT-DT  (TEW)  ) 

+B5 (D (TA) -DT (TEW) )+ClP*D (TFT) - 
C1P*(DT(TEW)+A60. )**A 

where  MCp  is  equal  to  D(EMASS)*CPCN 

The  third  equation  represents  three  modes  of  heat  transfer  relative 

to  the  heat  exchanger  cooling  liquid  node: 

la.  convection  to  and  from  the  interior  wall  or  pipe  node 

BA* (DT (TEP) -DT (TEC) ) 

where  BA  is  the  convection  coefficient  and  is  equal 
to  D(UCP)*D(ASCP) 

lb.  convection  to  and  from  the  exterior  wall  node 

B7* (DT (TEW) -DT (TEC) ) 
where  B7  is  equal  to  D(UCW)*D(ASCW) 

2.  heat  transfer  due  to  mass  transfer  into  the  cooling  liquid 
node  from  upstream  of  the  node 

MCp (D(TEC1) -DT (TEC) ) 

where  J-'lCp  is  the  flow  coefficient  and  is  equal  to  D(RMFCL)*CPCN 

3.  heat  transfer  due  to  pressure  drop  across  the  heat  exchanger 
coding  liquid  node 

MCp  * DCAPT2 

where  DCAPT2  is  equal  to  (1. 0/RHOIL)*D(PP3) / (CJ*CPCN) 
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These  terms  are  combined  to  produce  the  equation  for  heat  balance 


for  the  cooling  fluid  node: 

MCp* (DT (TEC) -DT (TEC) _ ) = B4*(DT(TEP)-DT(TEC)) 

Dflt  0LD 

+B7* (DT (TEW) -DT (TEC) ) 

+MCp* (D (TEC1 ) -DT (TEC) ) 

+MCp*DCAPT2 

where  MCp  is  equal  to  CMASS*CPCN 

The  fourth  equation  represents  one  mode  of  heat  tta  jfer  relative 
to  the  interior  wall  (pipe)  node: 

la.  convection  to  and  from  the  coding  fluid  node 

BA*(DT(TEC)-DT(TEP)) 
where  BA  was  defined  previously. 

lb.  convection  to  and  from  the  hydraulic  fluid  node 

Bl* (DT (TEF) -DT (TEP) ) 
where  Bl  was  described  previously 
These  terms  combine  to  produce  the  equation  for  heat  transfer  to 
and  from  the  interior  wall  node: 


MCp  (DT(TEP)-DT(TEP)  ) = BA* (DT(TEC)-DT(TEP) ) 
DFLT  ULU 

+ Bl* (DT (TEF) -DT (TEP) ) 
where  MCp  is  equal  to  D(PMASS)*CPPN 


(3) 


(4) 
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Figure  6.69-3  is  a thermal  resistance  for  the  heat  exchanger  and 
shows  how  all  four  nodes  are  interrelated.  Equations  (1)  through  (4) 
are  solved  simultaneously  for  the  temperatures  of  each  node. 


MCp*DCAPTl 


D(TEC1) 

.1 


MCp*DCAPT2 


CIP  - RADIATION 
MCp*DCAPTN  = GENERATION 


FIGURE  6.69-3 


THERMAL  MODEL 
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In  Che  hydraulic  math  model  the  pressure  drop  through  the  heat 
exchanger  is  computed  using  equation  (5). 

PUP  = PUP-Q1*D (LAM) *VISC (TF (L (ICON) , PUP)  (5) 

*RHO (IT  (L (ICON) ) , PUP) / ( . 028*8 . 2E-5) 

where 

PUP  = upstream  pressure  (PSI) 

Q1  = flow  (CIS) 

D(LAM)  = laminar  flow  coefficient 
RHO(  ) = fluid  density  (LB-SEC2/IN4) 

VISC(  ) = fluid  viscosity  (IN2/SEC) 

In  equation  (5)  the  laminar  flow  coefficient  is  corrected  to  the 
system  temperature  and  fluid. 

6.69.2  Assumptions 

1.  Atmosphere  and  structure  temperatures  remain  constant 

2.  The  entire  wall  or  case  of  the  exchanger  is  air  at  the  same 
temperature . 

3.  The  interface  conductance  between  the  exchanger  wall  and  the  line 
wall  segment  is  infinite. 

4.  The  emissivity  of  the  walls  remain  constant  at  .3  for  steel. 

5.  TW(L4),  the  downstream  cooling  liquid  line  segment  temperature 

is  at  the  temperature  of  the  exiting  fluid  TEMPCOT  which  also  equals 
DT (TEC) . 

6.  No  conductance  between  the  pipe  and  the  walls  of  the  exchanger. 

7.  The  temperature  of  the  exiting  hydraulic  fluid  is  equal  to  the 
calculated  temperature,  TF(L2)=DT(TEF) . 

8.  Complete  mixing  occurs  in  the  fluid  volume. 

9.  TW(L3) , the  upstream  cooling  liquid  line  segment  temperature  is  equal 
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to  D(TEC1)  the  cooling  liquid  inlet  temperature. 


6.69.3  Computation  Methods 

The  subroutine  executes  the  above  discussed  calculations  as  follows: 

SECTION  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external  structure 
temperature  is  changed  from  degrees  Fahrenheit  to  Rankine  and  raised  to  the 
fourth  power,  and  the  default  values  are  assigned. 

SECTION  2000 

The  pressure  drop  of  the  hydraulic  fluid  through  the  heat  exchanger 
is  computed  using  equation  (5). 

SECTION  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calculated. 

The  flow  direction  is  determined.  (the  program  is  set  up  with  the  flow  entering 
connection  line  one  (LI)  and  leaving  thru  connection  line  two  (L2) . During  the 
calculation  the  flow  direction  is  checked.  If  the  flow  has  reversed  flow 
direction,  the  program  reassigns  connection  numbers  so  that  the  flow  still 
enters  connection  line  one).  Some  coefficients  are  then  recalculated  if  the 
flow  is  reassigned.  A 4x4  matrix  is  loaded  and  the  mathematical  equations  are 
solved  for  DT(TEW) , DT(TEP) , DT (TEC)  and  DT(TEF) . The  calculated  values  are 
assigned  to  theit  proper  storage  locations  and  the  boundary  conditions  are  assigned 
to  arrays  (TC  and  TF)  in  common  /TRANS/. 

6.69.4  Approximations 

1.  The  exit  cooling  fluid  line  wall  is  at  the  temperature  of  the  cooling 
fluid  exiting. 

6.69.5  Limitations  - Not  applicable. 
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6.69.6  Variable 

Listing 

Variable 

Description 

Units 

A(  ) 

Computational  array 

IN.2 

ACEW 

Cross  sectional  area  of  the  exchanger  walls 

IN.2 

D(ASAW) 

External  surface  area  of  the  exchanger  walls 

IN.2 

D(ASCP) 

Surface  area  cooling  fluid  to  pipe  (fins) 

IN.2 

D(ASCW) 

Surface  area  cooling  fluid  to  exchanger 
exterior  walls 

IN.2 

ASFP 

Internal  surface  area  of  the  cooling  pipe 

IN.2 

B(  ) 

Computational  array 

Bl,B2,B3,B/i,B5,B7 

Variable  coeflicients 

CEW 

Thermal  conductivity  of  the  exchanger  walls 

WATTS /IN-0 F 

CJ 

Mechanical  equilivant  of  heat,  8.85 

T N -LBm / WATTS -SEC 

CMASS 

Cooling  liquid  mass 

LB„, 

CPCN 

Specific  heat  of  the  cooling  liquid 

WATTS -SEC /LBm- °F 

CPPN 

Specific  heat  of  the  exchanger  pipe 

WATTS-SEC/LBm-°F 

CPWN 

Specific  heat  of  the  exchanger  walls 

WATTS- SEC/LBm-°F 

D(CTYPE) 

Cooling  liquid  type  (use  1.) 

D (DELTA) 

Overall  length  of  the  length 

IN. 

D(DELTAX) 

Pipe  length  thru  exchanger 

IN. 

DXE 

Distance  from  node  to  interface,  exchanger 
watts 

IN. 

D(EMASS) 

Exchanger  mass 

LBm 

EPSION 

Emissivity  of  the  walls,  constant  .3 

FHASS 

Fluid  mass 

LBm 

D(IDIA) 

Inside  diameter  of  the  pipe 

IN. 

D(ITC) 

Initial  temperature  of  the  walls 

°F 

D(ITF) 

Initial  temperature  of  the  fluid 

°F 
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Variable 


Un  Its 


» 


Description 


D(ITL) 

Initial  temperature  of  the  cooling  liquid 

°F 

KTYPE 

Dummy  variable 

- 

D (LAM) 

Laminar  flow  coefficient 

PSI/C1S 

D(MTYPE) 

Exchanger  wall  material  type 

- 

NTYPE 

Dummy  variable 

- 

D(PMASS) 

Pipe  mass  (fins  etc) 

LBm 

D(PP3) 

Pressure  drop  across  exchanger  for  cooling 
liquid 

PSI 

RHOC 

Density  of  the  coding  fluid 

LB  /TN.3 
m 

RHOE 

Density  of  the  exchanger  walls 

LB  /IN.3 
m 

RHOIL 

Density  of  the  hydraulic  fluid 

LB  /IN.3 
m 

RHOP 

Density  of  the  exchanger  pipe  (fins) 

LB  /IN.3 
m 

D(RMFCL) 

Mass  flow  rate  of  entering  cooling  liquid 

I.B  /SEC. 
m 

R1,R2,R3,R4 

Dummy  variables  coefficients 

- 

SHAPF 

Shape  factor  of  the  walls,  constant  .96 

- 

SIGMA 

Stefan-Boltzman  radiation  constant  .385x10  3-3 

WATTS/ IN2 -R4 

D(TA) 

Surrounding  ambient  temperature 

°F 

DT (TEC) 

Temperature  of  the  exchanger  cooling 
liquid,  to  be  calculated 

°F 

D(TEC1) 

Inlet  temperature  of  the  cooling  liquid 

°F 

DT(TEF) 

Temperature  of  the  exchanger  fluid,  to 
be  calculated 

°F 

TEMPI 

Temperature  of  the  walls  for  heat  transfer 
calculation 

°F 

TEMPCIN 

Temperature  of  coolLng  liquLd  in 

°F 

TEMPCOT 

Temperature  of  cooling  liquid  out 

°F 

DT(TEP) 

Temperature  of  the  exchanger  pipe  (fins, 
to  be  calculated) 

°F 

D(TST) 

Surrounding  structure  temperature 

°F 
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Variable 


Units 


Description 


DT(TEW) 

Temperature  of  the  exchanger  walls,  to  be 
calculated 

°F 

D(UAW) 

Heat  transfer  coefficient  ambient  to  walls 

watts/in2-°f 

D(UCP) 

Heat  transfer  coefficient  cooling  liquid 
to  pipe 

watts/in2-°f 

D(UCW) 

Heat  transfer  coefficient  cooling  liquid 
to  walls 

watts/in2-°f 

UFWIL 

Heat  transfer  coefficient,  fluid  to  pipe 
walls 

watts/in2-°f 

D(VOLC) 

Volume  of  the  cooling  liquid  in  the 
exchanger 

IN.3 

VOLF 

Volume  of  the  hydraulic  fluid  in  exchanger 

IN . J 
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6*69.7  Subroutine  Listing 


SU'3  ROUT  I >iL  T'lLX  69  ( 0 ; OT,  DO,  L) 

RLVI3LD  OCD13LR  29,1970  *** 

DI.1LNSIOM  D(  1 ) , DT{  1 ) , DD(  ] ) , [,(  1 ) 

vA'  „■„,  1 , . .h  , POO,„rJ,  WOOL , ULLG , OCPG , TcR. i , 

''•'uP<  '^-=<‘>0, , ■u.d.-.c  oo, . 

«rustwuM?f4)r;'?H)CP'CPPK'  Fr':“p’  pw>><  n'  3> 

♦'S-f  LyP^d"^  0LLTU< 1 )IA  ■ *sc..  ,Ast.. , ut.. , p.ii-'cij, 

0 ARRAY  VAR  I A A Li  S 

0AT''  ;ruvi/,iW2/,  r i.c/?/,  iory.i/ 


a 

». 

c 

c 

c 

C 

C 

c 

c 

c 

r 

C 


Ip(  ILA’TR)  1300,200^,  300-) 

1900  CO  ITTiJL 

L 1 = L ( 1 ) 

L2=L(  2) 
r F(  LI  )=.-)(  I fp) 

TF ( L2 ) =D( ITF ) 
i'C(  L1)=:0(  IX) 

tc(  l?)=::(  i rc) 

nT( rhF)=0(IT?) 

DT(TbW)=D( ITC) 

OT(Tt-.C)  = 0(  ITL) 

OT(  TOP)  = ( 0(  I ?P)+P(  I PL)  )/?.  0 
C(T:?:)»(0(T.»1,)  + 4i'))**4 
Tr(  9(  'J.i.. ) . L 0.0.0)  0{  MA.<)  *0. 0 00  0 
0(  L..  AoS)  = D(  L . .Al'ij ) - ">(  r\.  \ ,'. ) 

■•-TYpl  =.i  AT»..<J  AL  rY Al 

o(  Oi. lta ) =i  xci.’A  •<  j.. u l ; • ] ■ j r .■  j 

)(  OLL  PAX  ) =1,aCOA  !'L.-;  CJ.'.L  L:.  iGTi.’ 
D ( w.n.v  ) — 


y < 


D(  i rc) 

•)(  JCv.) 

0 (T  A ) 
D(TKT) 
D(  VuLC) 


, vc  iarglo 
= I . ; I r I A L T‘  jPLRAT'IRl.  of 
= H1.AT  TOY  jfir1  COtFFICI  ••,  i 
=Tt..,PL'>AI,Ji.L  OP  A.  .01-.  1C 
=T i.i  i PI . ,<  A J J -<  j OP  jy  ’ uc  T'J R 


0 A.,.9 1 

o..?o:.’l  i'i 

wALL  AO  COOLI1G  LI9UI9 


OlC’.  P 


‘■UIO  I .'10  I )L  lXCUA.'ICcR 


=VOL0.ih  OF  COGLI *G  D" 

B,!V'J  WL0,<  :’VrL  I ;r°'  ‘-"C'IA'.GlR,  COOLI  IG  LI''*'J1  ■* 
p{  ii5).  *,IJ?;:  OF_  LVCLA'-OLR  TOTAL,  ( GALLS,  0IPLG,  FINS) 

' ' . LL  .jo  Jr>i,  OOP  AC  POOL  LXCMARCi-.R,  COOLING  LI^UIO 
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'■)  o o o o 


6.69.7  (Continued) 


f)(I\.ASS)  =PIPu  . ioAA  I^CLUOUG  ALL  FIGS, OR  JUST 
FITS  IP  NO  ? I PL 

D('JCP)  = rih.AT  TRANSFER  COLFF.  PI  PL  TO  COOLING  LI 
NODI  C IS  COOLING  LIQUID  (JP-4) 

NOOl  ? IS  Tiii.  PI  PL  INSIOL  Till,  LXCIIAHOLR 
Pt.rjR') 

C J "b  ADY  UTATL  S'CVIoU 

2 010  CO.TIN'JL 

P'JP=?'JP-01*0(  LA..)  *VUC(  rF(  L(  ICON)  ) , PUP)  * 

+ g:«0(TP(  L(  ICON)  ) , PUP)/(  . 028*3. 2L-5) 

PL.  I’MIGI 

3 0 0 0 CJ  !Tt  .'UL 

TTY  PI  =0(  ,','PYPt. ) + . 001 

;typi  =o(  ctypl)  + . oni 

CL,..  = ?iOP(  TTY  PL,  2) 

■<1iJl  = ?PO?(  RTYPl,  2) 
f-'i;0P='3l'. 0?(  r.VYPf- , 2) 

cpiv:-=?go?(  ntypl,  l) 

C ?:I0R(  NTYPL,  1) 

CPC!1  = 527.  1 
Pr,QC  = . 0 2r: 


3100 


r> 

c 


L1=L( 1 ) 

L?.=  L(  2) 

n i pc  i . i = o ( Tl.cd 


Ti,  ,?CoT=OT(?'-  C) 

P.K)IL=336.  a* %|,  >(  DT ( UP)  , R( Ll ) ) 

c..ag.j=o(volc)*:n.’oc 

C..ASG  Io  Tib  COOLING  LIQUID  ..ASS , JP-4  *iO.. , AN  0 
IF  A DIFFlPLNT  LIQUID  IS  "I  OF  OLD  CJA.rGLS  ..US  7 it  . 

to  c?c:  a jo  p.iioc  ro  fit  spuCUIC  nu-.d 

v*0LF  = PI*(  D(  IOTA)  ) **2*D(  DLL  PAX) /4. 

P .At  7= VOLF*  HliOI  L 
A AA=  ?1  * Q(  I DIA)  **2)/4. 

Of)D=D(  I BI  A) 

'u..pi=d7{  ;•.,.<) 

PP=PI*r(  I DI  \)  *r;(  JLLPAX) 

UP  I L='JP«<  ( AAA , ODD,  A So  ( 'X  Ll ) ) , T?  ( LI ) , ?(  LI  ) ) 


OXt,=D(  C L L T \ ) / 2 . 0 

3100  .\CL*..  = 0(  i..A5S)/(K!!Ot*"‘(  OLLTA)  ) 

A1  = )■<!./(  aC».*.*Cl...) 

P)  = 1 -/(  0<T(  Ll )/(  ACu  ( Ll ) *C(  Ll  ) ) +M  ) 

Y2=l  . / ( OvF  ( L 2 ) / ( AC..  ( L 2 ) *C(L2)  ) +A1 ) 

!:3  = 1./(2.0*M) 

'"•1  = 1 ./(  2. 0*M  ) 

P 1 =:)F>- 1 L*  A.VFP 
0 2 = A.2:.(O(  Ll)  ) *!<HOIL*CPF.i 
Q3  = 'M  T.iFCL)  *CPC:-J 
2 4 = O ( UC  P ) * 0 ( A oC  P ) 

L-  5 = D ( U A". . ) * D ( A S Aw ) , , . ,*>#-*■■ 

■,  ,S  t'lH  *' 


)UI  0 


..AQL 
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6.69.7  (Continued) 

D7  = D(  (JC>-i)  *D(  ASCoi) 

C I »=2 1 o IA*  3 HA  PF*  L °SIO-J*  D ( ASA*  ) 

DC  A PT  = ( 1 ./KilOIL)  * A33  ( P(  LJ  )-P(  L2)  )/( C J*CPF?J) 
rxnPT2=(  1./.7I10C)  *AAS(  0(  PP3)  )/(CJ*CPCN) 

C FL'JIO,  ..ALT,,  COO  LI  MG  LIQUID,  PI  PL,  ARt  TrlL  MOOLS  I'M  Ol'.DLP 

2300  A ( I , l)=F..AG3*CPpM/DLLT+Dl+32 

M l, 2)=n. o 

A( 1,3) =0.0 
A ( 2, 1)=9.0 

A ( 2,  2)  =D(  l.iACl  ) *CPwL/Dt,LT+37+35+r<l+  !2+.V3  + R4 
\( 2, 3)=-07 
A ( 3 , 1 ) = 0 . 0 
M 3, 2 )=-07 

M 3,  3)=C.iA.Jo*CPC:l/Di.LT+iJ7  + 34+33 
A ( 4 , 1 ) = - 3 1 
A ( 1 , 4 ) =A ( 4 , 1 ) 

A( 4, 2)=0. 0 
A ( 2 , 4 ) =0 . 0 
A ( 4 , 3 ) = - 3 4 
M 3,4) =-34 

M 4,  4 )=D(  P. i Ao o ) *C P I'.J/ Dl.LT +?«  1 + 3 1 
2 ( 4 ) = 0 ( P. .A  J.'» ) *CP PM*  D P ( 1 L ? ) / Of. LT 

0(1)  =F.«A.S3*CPF\>*  CM’ ( i't.F)  /DLLT+  3?*TF(  LI ) +DC  A p'J‘*  3 2 
>(  ',)=D(  L...A^S)  *C'\/i'*  0T(  Ti.»v) /DhLT+Ll*  J\.‘ ( LI  ) + n2*r.i(  L2) 

+ 4R3*  PC  I. ’ + ,2  4 *Ti  . PC  OT+ '<  5 * D ( TA ) +C I P*  0 ( re  I’)-CI  P*  ( !3T(  i'Lv ) + 

+ 4 00.)**  1 

2 ( 3 ) =C . .A  .33  * C RC  '•!  * ~'T  ( i1  i:.C  ) / ;/:  LT+  3 3 * D ( T ^C 1 ) + DC  A PT  .2*33 
4000  call  li  3,4,ii.aaor<) 

?*( L2)=3( 1) 

TC  ( L 1 ) = '3  ( 2) 

TC( L?)=3( 2) 

DT ( ri-P)»3(  1 ) 

0T(Ti P)=0( 4) 

DT ( r ) =3 ( 2) 

Dr(TtC ) ='?(  3) 

Rl.  p:j«;v 

l.  rj 


, r «. 


f 


K /'  • , 


‘ M f 

- UjV  I 
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6.71  SUBROUTINE  TACUM71 


Subroutine  TACUM71  simulates  a simple  gas  charged  piston  type  accumulator 
that  can  be  used  as  a system  accumulator,  as  sketched  in  Figure  6.71-1.  When 
used  as  a system  accumu] ator , the  initial  volume  of  oil  in  the  accumulator  is 
determined  by  the  steady  state  pressure.  Two  connections  are  provided,  both  of 
which  are  assumed  to  be  at  the  same  pressure.  When  a single  connection  is  used, 
the  other  is  blanked  off  automatically. 

Since  it  is  basically  a passive  device,  its  response  is  entirely  dependent 
on  line  flow,  pressure  and  temperature  changes. 

The  subroutine  calculates  the  accumulator  fluid  (oil)  temperature,  the 
gas  temperature,  and  the  temperature  of  the  accumulator  walls  and  piston. 


FIGURE  6.71-1 

TYPE  NO.  71  FREE  PISTON  ACCUMULATOR 
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6.71.1  Math  Model 


The  THERMAL  math  model  Cor  the  accumulator  includes  heat  transfer  to  and 
from  two  connecting  line  segments,  one  upstream  and  one  downstream.  Nine  nodes 
are  considered:  three  fluid  nodes,  one  gas  node,  and  five  wall  nodes  (as 

shown  in  Figure  6.71-2).  The  temperatures  of  the  upstream  connecting  line 
segment  wall  and  fluid  nodes  are  denoted  by  TW(L1)  and  TF(L1).  The  temperatures 
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FIGURE  6.71-2 

ACCUMULATOR  AND  CONNECTING  LINE  SEGMENT  REPRESENTATION 
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of  the  accumulator  wall  and  fluid  nodes  are  denoted  by  DT(TAN),  DT(TBN),  DT(TPN), 
and  DT(TAF),  and  the  temperature  of  the  gas  node  is  DT(TG).  The  temperature 
of  the  downstream  connecting  line  segment  wall  and  fluid  nodes  are  TW(L2)  and 
TF(L2).  Five  heat  balance  equations  are  written  to  solve  for  the  five  accumulator 
nodes  temperature  DT(TAN) , DT(TBN) , DT(TPN) , DT(TG)  and  DT(TAF),  using  the 
accumulator  and  line  segment  material  properties  and  dimensions,  the  atmosphere 
and  structure  temperature  external  to  the  accumulator,  and  TW(L1),  TW(L2),  and 
TF(L1).  (Note:  TF(L2)  = DT(TAF),  see  assumptions).  One  equation  for  the 

heat  balance  for  each  of  the  accumulator  nodes  is  produced.  The  first  equation 
represents  two  modes  of  heat  transfer  relative  to  the  accumulator  gas  node. 
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1.  Heat  transfer  due  to  expansion  or  compression  of  the  gas  by  the 
piston 

DT(TG)  = DT(TG)m.n  *DT(PG)*DT(VOLG) 

DT(OPG)*DT(OVOLG) 

This  term  calculates  the  new  temperature  of  the  gas  just  due  to 
expansion  or  compression,  not  with  its  reactions  with  the  other  nodes. 

2a.  Convection  to  and  from  the  accumulator  wall  node 

B1*(DT (TAN)-DT (TG) ) 

where  B1  is  the  convection  coefficient  and  is  equal  to  D(UGA)*ASGA 
2b.  Convection  to  and  from  the  accumulator  piston  node 

B2*(DT(TPN)-DT(TG)) 

where  B2  is  the  convection  coefficient  and  is  equal  to  D(UGA)*D(AREA) 

These  heat  transfer  terms  are  combined  to  produce  the  equation  for  the  heat 
balance  for  the  accumulator  gas 

DT(TG)  = DT (TG) *DT (PG) *DT (VOLG) / (DT (OVOLG) *DT (OPG) ) 
this  new  DT(TG)  then  becomes  the  DT(TG)qlD  *n  tlie  next  equation 
MCp  (DT(TG)-DT(TGKt  _)  = B1*(DT(TAN)-DT(TG)) 

DELT  0LD  (1) 

+B2*(DT(TPN)-DT(TG)) 

The  second  equation  represents  three  modes  of  heat  transfer  relative  to 
the  accumulator  fluid  (oil): 

la.  Conduction  to  and  from  the  upstream  line  segment  fluid 

Rl* (TF (LI) -DT (TAF) ) 

where  Rl  is  equal  to  CF/(DXF(L1)/ACF(L1)+DXAF/ACAF  + RMFL1*DELT/ 
(ACAP**2*RH0IL)) , the  conduction  coefficient  for  the  fluid.  RMFL1 
equals  Q(L1)*RH0IL. 
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lb.  Conduction  to  and  from  the  downstream  line  segment  fluid  node 
if  the  flow  rate  is  negligible,  or  not  .Leaving  the  accumulator. 

R2* (TF(L2)-DT (TAP)) 

where  R2  equals  R1  except  instead  of  LI,  R2  uses  L2.  (Note: 

There  may  only  be  one  connecting  iine  with  the  second  being 
closed  off  and  consequently  this  term  would  be  zero.) 

2a.  Convection  to  and  from  the  accumulator  wall  node  around  the 
fluid. 

115*  (IT  (TBN)-DT  (TAF)  ) 

where  B5  is  the  convection  coefficient  and  is  equal  to  D(UFUA)*ASFB. 
2b.  Convection  to  and  from  the  piston  node 

B4*(DT(TPN)-DT(TAF) ) 

where  B4  is  the  convection  coefficient  and  is  equal  to  D(UFWA)*D(AREA) 
3.  Heat  transfer  due  to  mass  transfer  into  the  accumulator  from  the 
upstream  connecting  line  node 

MCp* (TF (LI) -DT (TAF) ) 

where  MCp  is  the  flow  rate  coefficient  and  is  equal  to  Q(L1)*RH0IL. 

If  there  is  no  fluid  entering  the  accumulator  the  last  term  is  set 
equal  to  zero. 

These  heat  transfer  terms  are  combined  to  produce  the  equation  for  the 

heat  balance  for  the  accumulator  fluid  node: 

MCp  * (PT (TAF) -DT (TAF) m n)  = Rl* (TF(L1) -DT(TAF) )+R2* 

DELT  (TF(L2)-DT(TAF) ) + MCp  * 

(TR (LI) -DT (TAF) ) +B5 (DT (TBN- 
DT (TAF) )+B4* (DT (TPN)-DT (TAF) ) 

where  MCp  is  equal  to  FMASS*CPFN 
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The  third  equation  represents  three  modes  of  heat  transfer  relative  to 


the  accumulator  wall  node  surrounding  the  gas  node. 

la.  Conduction  to  and  from  the  accumulator  wall  surrounding  the  fluid. 

R4* (DT(TBN)-DT(TAN) ) 

where  R4  is  the  conduction  coefficient  and  is  equal  to 
CA/ (DXAA/ ACAA+DXAB/ ACAB) 

lb.  Conduction  to  and  from  the  accumulator  piston  node 

R3* (DT(TPN)-DT (TAN) ) 

where  R3  is  the  conduction  coefficient  for  the  wall  and  is  equal  to 
1 . 0/ (DXAP/ (ACAP*CP)+DXAA/ (ACAA*CA)+1 . 0/ (CAP*ACAP) ) 

2a.  Convection  to  and  from  the  gas  node 

Bl* (DT (TG)-DT (TAN) ) 

B1  is  a convection  coefficient  and  was  define!  previously. 

2b.  Convection  to  and  from  the  external  atmosphere 

D] *B3* (D(TA) -DT (TAN) ) 

where  B3  is  the  convection  coefficient  equal  to  D(UAA)*D(ASAA) 
and  D1  is  equal  to  DT(VOLG)  / (I)T (V0LG)+DT (YOLO) ) , a term  to 
represent  the  accumulator  mass  surrounding  the  gas. 

3.  Radiation  exchange  with  the  surrounding  structure 
Dl*CIP*D(ASAA)*(D(TST)-(DT(TAN)+460.)4) 
where  CIP  is  equal  to  SIGMA* EPS ION* SI  LAPP,  the  radiation 
coefficient,  and  D1  is  as  above. 

These  terms  are  combined  to  produce  the  equation  for  the  heat  balance  for 
the  accumulator  wall  node. 
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MCp  (DT(T/vN)-DT(TAN)at_)  = R4(DT(TBN)-DT(TAN)  )+R3 (DT(TPN)- 
DELT  °LD 

DT (TAN) )+Bl* (DT (TG) -DT (TAN) ) (3) 

+B3* (D(TA)-DT (TAN) )+CIP*D (ASAA) 

* (D(TST) - (DT (TAN) +460) **4 ) 

where  MCp  is  equal  to  D (AMASS) *D1*CPAN 

The  fourth  equation  represents  three  modes  of  heat  transfer  relative  to 

the  accumulator  wall  node  surrounding  the  oil  volume. 

la.  Conduction  with  the  connecting  line  segment  wall, 

R6* (TW (LI) -DT (TBN) ) 

where  R6  is  the  conduction  coefficient  for  the  walls  equal  to 
1 . 0/ (DXF (LI) / (ACW (LI) *C (LI) )+D3) . 

D3  is  equal  to  DXAB/ (ACAB*CA) . 

This  may  be  upstream  if  fluid  is  entering,  or  downstream  if  fluid 
is  only  leaving,  or  either  if  there  are  two  connecting  lines. 

lb.  Conduction  to  and  from  that  second  connecting  line  wall  node. 

R7* (TW(L2)-DT (TAN)) 

where  R7  is  a conduction  coefficient  equal  to  1.0/ (DXF(L2)/ 
ACW(L2)*C(L2) )+D3) 

lc.  Conduction  to  and  from  the  accumulator  wall  node  surrounding  the  gas. 

R4* (DT(TAN)-DT(TBN) ) 
where  R4  has  been  defined  previously. 

ld.  Conduction  with  the  piston  node 

R5*(DT(TPN;.-DT(TBN)) 
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where  R5  is  the  conduction  coefficient  between  the  two  nodes 
equal  to  1. 0/ (DXAP/ (ACAP*CP)+B3+1. 0/ (CAP*ACAP) ) 

2a.  Convection  to  and  from  the  external  atmosphere 

D2*E3*(D(TA)-DT (TBN) ) 

B3  being  same  as  defined  previously  and  D2  is  equal  to  DT(VOLO)/ 
(DT(V0L0)+DT(V0LG)) , a term  for  the  amount  of  accumulator  mass 
surrounding  the  fluid. 

2b.  Convection  with  the  fluid  node  in  the  accumulator 

B5(DT (TAF)-DT (TBN)) 

where  B5  is  the  same  as  previously  defined. 

3.  Radiation  exchange  with  the  surrounding  structure 

D2* (CP* D(ASAA) * (D (TST ) - (DT (TBN)+4  60)  A ) 

where  all  terms  have  been  previously  defined. 

These  six  terms  are  combined  to  produce  the  equation  for  the  heat  balance 

for  the  accumulator  wall  node  surrounding  the  fluid. 

MCp  (DT(TBA)-DT(TBN)  ) = R6* (TW(L1) -DT (TBN) ) +R7 (TW (L2) -DT (TBN) ) 

DEI  T 

+R4* (DT (TAN) -DT (TBN) -DT (TBN) )+R5 (DT (TPN) 


-Dl (TBN) )+D2*B3* (D (TA) - (DT (TBN) ) 

+B5 (DT (TAF) -DT (TBN) )+D2*CIP* 

D(ASAA) * (D(TST)- (DT(TBN)+460)**4) 

where  MCp  is  equal  to  D(AMASS) *D2*CPAN 

The  fifth  equation  represents  two  modes  of  heat  transfer  relative  to 

the  accumulator  piston  node. 

la.  Conduction  to  and  from  the  accumulator  wall  node  gas  side 

R3* (DT (TAN) -DT (TPN) ) 
with  R3  being  defined  previously 

lb.  Conduction  co  and  from  the  accumulator  wall  node  fluid  side 

R5 (DT (TBN ) -DT (TPN) ) 
with  R5  being  defined  previously. 


(4) 
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2a.  Convection  to  and  from  the  gas  node 

B2* (DT (TG) -DT (TPN) ) 

and  again  B2  is  the  same  as  was  defined  previously. 

2b.  Convection  to  and  from  the  fluid  node 

B4* (DT (TAF) -CT (TPN) ) 
with  B4  being  defined  previously. 

These  terms  combine  to  produce  the  equation  for  the  heat  balance  for  the 
accumulator  piston  node. 

MCp  (DT(TPN)-DT(TPN)  ) = R3*(DT(TAN)-DT(TPN))+R5*(DT(TBN)-DT(Tl)N)) 

npr  T 

+B2* (DT (TG) -DT (TPN) )+B4* (DT (TAF) -DT (TPN) ) 
where  MCp  is  equal  to  D(PMAS$*CPPN 

A thermal  model  of  the  above  heat  transfer  equations  is  shown  in  Figure  6.71-3. 
Equations  (1)  thru  (5)  are  solved  for  the  appropriate  temperatures. 


DT (TG)  *DT (PG) *DT (VOLG) 

ULiU 


— DT (OPG) *DT (OVOLG) 


= GENERATION 

BN  = CONVECTION 
MnCp  = STORAGE 
MCp  = FLOW 
C1P  = CONVECTION 


FIGURE  6.71-3 
THERMAL  MODEL 


DT (TAF) 


6.71-8 


For  the  appropriate  temperatures  a thermal  model  for  the  accumulator 
is  shown  in  Figure  6.71-3. 

For  entry  and  exit  flow  losses,  a pressure  loss  term  is  input  into  the 
program.  The  term  is  corrected  for  the  fluid  type  and  operating  temperature. 
The  resulting  pressure  loss  is 

PUP=PUP-Q1*C0RR  (6) 

where  Q1  = flow  rate  (CIS) 

CORR  = Entry  exit  flow  constant  (PSI/C1S) 

PUP  = Inlet  Pressure  (PSI) 

CORR  is  the  adjusted  laminar  flow  constant  determined  by  the  following 
formula 

com  - d(loss)Mviscoperatinc)<densoperatinc)/(visc100Hdens100) 

6.71.2  Assumptions 

1.  The  temperature  of  the  atmosphere  and  structure  surrounding  the 
accumulator  remain  constant. 

2.  The  temperature  rise  in  the  gas  is  due  to  compression  or  expansion 
of  the  gas  from  the  fluid  in  the  accumulator,  besides  the  heat 
transferred  to  and  from  it. 

3.  The  emissivity  of  the  walls  remain  constant. 

A.  Complete  mixing  occurs  in  the  fluid  volume. 

5.  The  interface  conductance  between  the  accumulator  walls  and 
the  line  walls  is  infinite. 

6.  The  temperature  of  the  fluid  leaving  the  accumulator  is  equal 
to  the  fluid  calculated  temperature,  DT(TAF). 
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6.71.3  Computational  Methods 


Section  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised 
to  the  forth  power,  and  the  default  values  are  assigned. 

Section  2000 

The  pressure  loss  due  to  fluid  entry  and  exit  is  computed  using 
equation  (6)  and  the  accumulator  oil  pressure  is  stored  in  DT(PO).  At  time 
zero  in  the  program  the  initial  gas  volume  is  computed  as 

DT(VOLG)  = DT (MAVOLG) - (DT (APRECH) *DT (MAVOLG) ) /DT (PG) 
where 

DT (MAVOLG)  = MAX  VOLUME  OF  GAS  (IN3) 

DT (APRECH)  = PRECHARGE  PRESSURE  (PSI) 

DT(PG)  = GAS  PRESSURE  (PSI) 

DT(VOLG)  = GAS  VOLUME  (IN3) 

Section  3000 

The  present  oil  volume  is  computed  using  a simple  integration 
TVOLO  = DT(V0L0)+(DT(IQV)+TQV)*DT(NDELT)) 

where 

DT(VOLO)  = OLD  OIL  VOLUME  (IN3) 

DT(TQV)  = SUM  OF  FLOW  IN  AND  OUT  OF  ACCUMULATOR  (CIS) 
DT(IQV)  = OLD  SUM  OF  FLOWS  (CIS) 

DT(NDELT)  = . 5*TIME  STEP 
TVOLO  = TOTAL  OIL  VOLUME 


6.71-10 


TVOLO  is  checked  to  determine  if  the  accumulator  is  full,  empty  or  in  its 
working  range.  With  an  empty  accumulator  the  oil  volume,  TVOLO,  is  set  to  the 
minimum  oil  volume  and  the  volume  of  gas  becomes  DT(MAVOLG).  Similarly  for  a 
full  accumulator  the  proper  volumes  are  initialized. 

After  the  volumes  of  oil  and  gas  have  been  determined  the  gas  pressure  is 
computed 

DT (PG) =DT (PG)+(DT(DPG)+TDPG) *DT (NDELT) 

where 

DT(PG)  = OLD  GAS  PRESSURE  (PSI) 

TDPG  = RATE  OF  CHANGE  OF  GAS  PRESSURE  WITH 
TIME  (PSI/ SEC) 

DT(DPG)  = OLD  DIFFERENTIAL  GAS  PRESSURE  (PSI/SEC) 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calculated. 

| The  flow  direction  is  determined.  (The  program  is  set  up  with  the  flow 

entering  connection  line  one  (LI)  and  leaving  through  connection  lines  two  (L2) . 
During  the  calculation  the  flow  direction  is  checked.  If  the  flow  has  reversed 
flow  direction,  the  program  reassigns  connection  numbers  so  that  the  flow  still 
enters  connection  line  one).  Some  coefficients  are  then  recalculated  if  the  flow 
direction  is  changed.  A 5x5  matrix  is  loaded  and  the  mathematical  equations 
are  solved  for  DT(TAF) , DT(TG) , DT(TAN) , DT(TBN),  and  DT(TPN)  and  stored  in 
the  B computational  array.  The  calculated  values  are  assigned  to  their 
proper  storage  locations  and  the  boundary  conditions  are  assigned  to  special 
arrays  TF  and  TC  in  COMMON/TRANS/. 

6.71.4  Approximations 

1.  The  shape  factor  is  .96  (described  in  the  technical  discussion  earlier). 

2.  The  properties  for  the  gas  are  for  nitrogen  at  100°F,  and  remain 
constant. 
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6.7J.5  Limitations 


The  accumulator  model  may  not  be  used  as  a pressure  source  in  a hydraulic 


system. 

6 .71.6  Variable 

Listing 

VARIABLE 

DEFINITION 

DIMENSION 

A 

Computational  Array 

— 

AAA 

Area  Associated  with  the  Inlet  Flow  to  Accumulator 

IN2 

AAMASS 

Accumulator  Mass  - Surrounding  the  Gas 

LBm 

ACAA 

Cross  Sectional  Area  of  the  accumulator  wall 

IN.2 

AC.aB 

Cross  sectional  area  of  the  accumulator  wall 

IN.2 

ACAF 

Cross  sectional  area  of  the  accumulator  fluid 

IN.2 

ACAP 

Cross  sectional  area  of  the  accumulator  piston 

IN.2 

D (AMASS) 

Accumulate c Mass 

LB 

m 

D(APRECH) 

Precharge  pressure  adjusted  to  fluid  temperature 

PSI 

D (AREA) 

Piston  to  oil  area 

IN.2 

D(ASAA) 

Surface  area  accumulator  walls  to  atmosphere 

IN.2 

ASFB.ASGA 

Dummy  variables 

— 

B(  ) 

Computational  Array 

— 

BMASS 

Accumulator  Mass  Surrounding  the  fluid 

LB 

m 

CA 

Conductivity  of  die  accumulator  walls 

WATTS/ IN. -°F 

D(CAP) 

Interface  conductance  - walls  to  piston 

WATTS/ IN. -°F 

CIP 

Dummy  variable 

— 

CJ 

Mechanical  equivalent  of  heat 

IN-LB  m/ WATTS 

CORR 

Laminar  flow  coefficient  correction  term 

— 

CP 

Thermal  conductivity  of  the  piston 

WATTS/IN. -°F 

CPAN 

Specific  heat  of  the  accumulator  walls 

WATTS-SEC/LB, 
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6.71.6  Variable  Listing  (Continued) 


VARIABLE 

DEFINITION 

DIMENSION 

CPFN 

Specific  heat  of  the  fluid 

WATTS-SEC/LB  m- 

CPGN 

Specific  heat  of  the  gas 

W\TTS-SEC/LBm- 

CPPN 

Specific  heat  of  the  piston 

WAPTS-SEC/LBm 

DOD 

Distance  over  which  AAA  Acts 

IN. 

D(DIA) 

Inside  Diameter  of  accumulator 

IN. 

D(DPG) 

Differential  gas  pressure 

PSI/SEC 

DXAA 

Distance  from  node  to  interface,  wall  to  wall 

IN. 

DXAB 

Distance  from  node  to  interface,  wall  to  wall 

IN. 

DXAF 

Distance  from  node  to  interface,  fluid  to 
connecting  line 

IN. 

DXAP 

Distance  from  node  to  interface,  piston  to  wall 

IN. 

D1.D2.D3 

Dummy  Variables 

— 

EPS ION 

Emissivity  factor  of  the  walls 

— 

FMASS 

Accumulator  fluid  mass 

LBm 

D(CTYPE) 

Gas  material  type 

— 

GMASS 

Gas  mass 

LBm 

IERROR 

Dummy  variable 

— 

D(ITC) 

Initial  wall  temperature 

°F 

D(ITF) 

Initial  fluid  temperature 

°F 

D(ITG) 

Initial  gas  temperature 

°F 

D(LOSS) 

Entrance  and  exit  loss  coefficient 

PSI/CIS 

KTYPE 

Dummy  variable 

— 

DT(MAVOLG) 

Maximum  volume  of  gas 

IN.3 

D(MAVOLO) 

Maximum  oil  volume 

IN.3 
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6.71.6  Variable  Listing  (Continued) 


VARIABLE 

DEFINITION 

DIMENSION 

D(MIVOLG) 

Minimum  gas  volume 

IN.3 

'X 

D(MIVOLO) 

Minimum  oil  volume 

IN. 

D(MTYPE) 

Accumulator  Wall  Material  Type 

— 

DT(NDELT) 

.5  * Time  Step 

SEC 

NTYPE 

Dummy  Variable 

— 

DT(OPG) 

Old  gas  pressure 

PSI 

DT(OVOLG) 

Old  gas  volume 

IN.3 

DT(PG) 

Gas  pressure 

PSI 

D(PMASS) 

Piston  mass 

LBm 

DT(PO) 

Oil  pressure 

PSI 

D (PPP.ES) 

Gas  precharge  pressure 

PSI 

D(PTYPE) 

Piston  material  type 

• 

RHOIL 

Density  of  the  oil 

LBm/IN. 3 
LBm/IN. ' 

RHOG 

Density  of  the  gas 

RllOP 

Density  of  the  piston 

U>„,/IN.3 

SHAPF 

Shape  factor  of  the  walls  for  radiation 

SIGMA 

Stef an- Boltzmann  constant  for  radiation 

2 

WATTS/ IN. 

D(TA) 

Temperature  of  surrounding  atmosphere 

°F 

DT(TAF) 

Fluid  temperature  in  accumulator 

°F 

DT(TAN) 

Temperature  of  the  wall  surrounding 
the  gas 

°F 

DT(TBH) 

Temperature  of  the  wall  surrounding  the  fluid 

°F 

TDPG.TFO 

Dummy  variables 

°F 

DT(TG) 

Gas  temperature 
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6.71.6  Variable  Listing  (Continued) 


VARIABLE 

DEFINITION 

DIMENSION 

DT(TPN) 

Piston  temperature 

°F 

D(TST) 

Temperature  of 

the  surrounding  structure 

°F 

D(UAA) 

Heat  transfer 

coefficient, 

accumulator 

to 

ambient 

WATTS/ IN. 

D(UFWA) 

Heat  transfer 

coefficient, 

accumulator 

to 

fluid 

WATTS/ IN. 

D(IGA) 

Heat  transfer 

coefficient, 

accumulator 

to 

gas 

WATTS/ IN. 

DT(VOLG) 

Volume  of  the 

gas 

IN.3 

DT(VOLO) 

Volume  of  the 

oil 

IN.3 

d(wthick) 

Accumulator  wall  thickness 

(average) 

IN. 

r>  < 


r 
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6.71.7  (Continued) 


TC( LI )=D( ITC) 

D(  A.iAJS)  = D(  \.,'\SS)-D(  PuAoS ) 

CIP=SIG.lA*SHA?P*LPi»IOiJ 

D(TST)  = (D(  FST)+-160.  ) **-'1 

IF ( D(  UAA) .LC.O.O)D(UAA)  = .O06') 

0T(  APRLCM ) =D(  [■’  PP  L.S ) * ( rP(  Ll)+46n.  )/520. 

OT  ( . i A VO  LG ) = 0 ( . .A  VO  LO ) - D ( I VO  LO ) + J ( . 1 1 VO  LG ) 

OT ( VO LU.  i L ) = D ( .AVOLO)  + 0(  ilVOLG) 

OT  ( 0 VO  LG ) = D ( . > I VC  LG ) 

0T(  OPG)  = OT(  APRlCiI  ) 

DT ( :\’CL Li’ ) = . 5 * 0 L LT 

DT( IOV)=0. 0 

0 1’  ( D P 3 ) = 0 . 0 

IF(  L(  2)  .LO.  0)  GhTUI’L 

TF( L( 2) )=D( ITF) 

7C( L( 2) )=D( ITC) 
it  LVJHi’i 

2000  CONTI NUL 

C CORRLCT  r LO./  CONSTANT  POL  FLUID  A. JO  Ttv.iP 

CORR=VIUC ( TF(  L{  1)  ) , PUP)  *r<110(TF(  L(  1)  ) , PUP)/<  . 020*0.  2L-5) 

+ *D( LOSS) 

P'j  P=?ijP-Gl*COttL 
IF(  ICO'!.  ’,L.  DUlTUk:. 

0T( PO)=PMP 

I F ( T I IL.GL.O.  0)GLTU)!i’ 

OT( ?G)=DT( PO) 

DT(  VOLG)  = D f ( u A v'OL'J)  - ( 0 T{  APKLCG  ) * DT  ( . , V/O  LG ) ) / O " ( PG ) 

OT  ( VO  LO ) = OT  ( VO  LO.  .1. ) - DT  ( VO  LG ) 

I F ( OT ( \PRbCil)  . L P . 07 ( PG)  ) RlT'JKM 
or  ( PG)  =OT(  APR  I C:l) 

DT  ( VO  LO ) = O ( . , I VO  LO ) 

PLTUKO 
300’)  L1  = L(  1 ) 

02=0.0 

IF(  L(  2)  .07.  0)^2=  )(L(  2)  ) 

XT  Y PL  = O ( . ,T Y :>L ) -f  . 001 

Pi.  = D(  PTYPi  J + .001  , 

i r/Nrt,  AAAAI  * 

Jim  i • / // 

rtlJO P=  PROP ( J TY  "JL  , l ) U i.  ■ . i.  GVy 

CA=P!tOP(  XTYPt,,  3 ) 

CP=?r.OP(  J JTYPL  t 3) 

C?G*3=2  47.0 
C PA. 1=  PROF ( GTYPl,  1 ) 

CPi?U=?POi5(  JTYPu,  1 ) 

Pi!OIL=33<3.  4*ftnO(  TF(  Ll)  ,OT(  PO)  ) 

C CO.'.P'JTr.  ^i'LGL  IT  OIL  VOL"  IL 

T '"/=''■(  Ll ) +02 

TVG LO=  0 T ( VOLO ) + ( DT ( I C-V ) +TOV ) * D i’(  i Jl'L  Ll1 ) 

..PI  Fl(  6, 900)  I J!),  \C(  I JO)  , L(  2)  ,0(  Ll)  ,02,  OT(  IQV)  , OT(  DPG ) , 

+ TVOLO, DT( VOLO) 
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6.71.7  (Concinued) 


11  rn  FOK.,Ar(ixf3in,6i.i5.5)  *-*-*—■*.  ■ :.u«’ 

DT  ( VO  LG ) = n?  ( VOLU  -u. ) - TVO  LO 
1H(  rVOLO.C-T.TM  -.IVOLO)  )GO  TO  3100 
C ACC).  I'JLA'POP  I -i  L.iPTY 

WOLO=L(  .I7CLO) 

Cf(VCL  DT(.iAVOLG) 

TOV=0.0 
VO ['•>.).  o 
Go  :o  1300 

3 1 .)  U 1 1-  ( T 7( ) LO . LT . o ( . i.  \ VO  LO ) ) GO  TO  3 200 
C \C.?J.,\)L.YIOK  IS  FULL 

}’VCLO=L(  i.WGLO ) 

CT(  VOLG)  ~n(  ..IVOLG) 

r ■>•;=  o . o 
rnP0»:).  o 

C ACCl!  .OLA  POL  In  wOP.'*  I\’G  KAKSL 

3200  c -> -.VIGIL. 

I‘0PG=DT(  PG)  *T?V/(  0(.,/WOLG)-fVOLO+D(.iIVOLO)  ) 

DT ( PG ) * rr  ( PG ) + ( OY ( D PG ) +TD°G ) * DT ( G DL  L f ) 

3300  COP TIG Cl 

■:v(  VOLOj^TVOLO 

or(  iov)  = r'"v 
~>T(  G>7)  = rr.v, 

C .ii  AT  •.!:  K.'sVLi'  COt.P'JTM’IO.iJ 

OXAF  = -v;(  VOLU ) / ( 2 . 0*  3 ( \iu  \\  ) 

OX  A \o:i  VO  LO ) / ( 2 . 0 * 2 ( A PL  A ) J 
o::\  3=^xao 
D {%->="«(  DI  \)/6.0 
ACAi’  = 0(  Aivt  A) 

ACaY-2. 0*D(  ..T.iIOV)  *0{  OIA) 

ACAO=2.0*3(  wTiilCK) 

v: a p= o ( ? iAso ) / ( r<r.or+  o(  oia)  ) 

v-ro=pi*o(  oiA)  *d p(  volo)/o(  a:u.a)+d(  apla) 

AG'V\  = PT*:0(  01  A)  *DT(  \’OL<; )/:■>(  API  A)+0(  A,U.A) 
r...I'Ll  = A/,o{  ''t  LI  ) ) *»v-S:)IL 

oi  = ">v(v<  r '.)  /(  ot{  voi,('.)  + ot(  vol-j)  ) 
o 2 = o r ( v. ) lo  ) / ( nr  ( vo  lo  } + ov  { volg)  ) 

G.,A„L  = 07(  7OLG)*M'.0G 
AA.iA:'f'=  0(  A.iAGL)  * 01 
2..AA:S=n(  A . ALL)  *02 
F .AGG=OT(  vOLO)  * 1C !OI  L 
3] 01  03  = OXAV(  \CA0*CA) 

•\AA=0(  A PL  A)  /2.3 
OnO=S^?T(  AAAM./PI) 

C Or  ,IL=(JF  v(  VAA,  OOP,  AAS(  0(  Ll)  ) ,TF(  Ll  ) , P( Ll)  ) 

!;l=CF/(  DX!'(  LI  )/ACF(  L l ) +DXAF/ ACAF+P..FL1  * Dh.LT/  ( ACF  ( Ll ) 

+ **:*; coil) ) 

i!2  = 0. 0 

! ‘ 7 = 0 . 0 
IV.rL2  = 0. 0 
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6.71.7  (Continued) 

I ^ ^ ( L 1 ) . L i . . 9 ) r<  3 = 0.0 
ii'C'MU). l:\o.o)  :<-:FLi=n.o 
if(  l.(  ■?)  .i.  '>.n.o)-iT(  l(  ?)  ) = o.n 
IF(L(2).LC.0.0)  i *(L(2)  )*0.n 
IF ( L(  2)  .j,  ).0)  30  VO  3103 
L2=L( 2) 

32=Cr-/(  p.vF(  L2 ) /.'  F(  L2)+nXAP/ACAF+«..FL2*Ot  LT/(AC’’(  L2) 

+ **2*311011.)  ) 

|..’.FL2=A  IS  CM  L2)  ) * i' .101  L 

”7=1 , 0/ ( OXP ( L2)/(?C»-( L2)*C( L2) )+J3) 

IF(  ”(  L2)  ,I.T  .0.0)  r.?=n,n 
I'-(a(L2)  .LT.0.0)  :<  IF  1,2=0. 0 

3 I *>  3 ‘-3  = 1. 0/  ( Da  A :*/  ( ACA  P*  C P ) + OX  A A/  ( ACAA*CA ) + 1 . 0/  ( CA  p*  AC  A P ) ) 
P4=C  A/  ( OK  A A/  AC  \A+‘DXA  V ACAS) 

'<0=1 . 0/(  DXAP/(  ACA?*C»)+D3+1 . 0/ ( CAP*ACAP)  ) 
kO  = 1 . 0/  ( DXF  ( LI ) / (AC  .*(  Ll)  *C(  LI)  )+D3) 
iil  = D(  U G A ) * A w. 0 A 
32=v(  iI3A)  *n(  AP!  \) 

03  = ’)(.jAA)  *3(  ACAA) 

)( JF  < A ) * 0 ( APi  A) 

:o=o(ur.«A)  * 'pi'  i. 

C 3A-:,PlJI  ),A,0  iGJl,o  l.j  OPOr.P 

Oi'CIO)  =0T(  l<))*  Ji(  ?■:,)*">?(  \'OL?-)/{  P?{  JVOuC)  Or(OPG)  ) 

A(  1 , 1 ) = 1 ,A.i0*CP.;  i/Ol  LT+3  1+  <2 
A ( 1 , 7 ) = o . 0 
A ( 1 , 3 ) - ~ 3 1 
A ( 1,4,  =0.0 
A ( 1,5)=- 32 

'.(!)  = • . \b>>*C*  .;-s*Oi-(  I D/Dj-LT 
•\(°,1  ) = *>.■» 

*»(  2 , 7 ) = 17  :A  Jo*C PTO/ OUvr+l  4 + 3 5+V.iPLl  *CPFi'  + 

+ .l  + ‘:2+ \i"  L2*C-H” 

M 2, 3)  = 0.0 

A(  2,4)=-OS 

\C ,0)=-’: ) 

.'( 2)=K..A:^,*C'>t  i* ):(  rAF)/of  r, r+  ( ”,  .r'L,]  *gp?  i+'-i)  *r? ( ld  + 
+ ( ••:':+■  , • L2*c-f.i)  * !’r  ( L° ) 

A(  3 , 1 ) = -.Jl 
A ( 3 , 2 ) = 0 . 0 

A(  3, 3 ) =AA..A.- 0*C  >WSj»  LT+  U + .<3  + /.  1+  ;3*31 
A(  3 , 4 ) = - A 4 
A ( 3 , 5 ) =-I<3 

3 ( 3 ) = A A i V.3*C*V.  .*~;r(TA  :)/Dl  Ll’+CI  P*D(  A3AA)  *D1*D(  I‘oT)- 
+ CIP*D(  A3.AA)  * )1*(  (DT(  r.’.-J ) + 4'jH.  ) * * 4 ) +3  3*  PI  * .)(  l'A) 

A(  4 , 1 ) = ) . 0 
A ( 4,?)  =-35 
■A(  4, 3)  =-34 

A ( 4 , 4 ) = 3 .-..A P.V* CPA ;■</•::.  i,.'+  >5  + J'  4 + ..5  + P6  + N7  + 

+ J3*07 
A ( 4 , 5 ) = - ” 5 


rn 
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6.71.7  (Continued) 


A ■")  0 0 


■(  4)  = !'.Ajr.*CP\i.,*Oi'(T  '■  J ) /OlLT  + IJ  6 * C.v  ( LI  ) +07*  i\<  ( L2 ) + 
33*no*;>(  i a)  fCIP* J(  \o  \\)*n2*0(TuT)- 

cip*-)(.\oAA) *«;?*(  ( nr(T.<  !)  + -ifio. ) *M) 

A(  5, 1 )=-’32 

.i 

\(r>,  ?.)=-,'! 

' ( 1 

\(  r> , 5 ) = P.  i A»/'."*C ’’ .M/Ol.LT+.i  3 + P G+'3  2+1 4 
')(  A ) = P.'.A 3 S* C P P.J * 0 ( T Ij.'m  ) / DL LT 
CALL  ,'.I  ,-JLT(  A,  ,f  5,  I.„h.*  X<) 

;)r(C'V0Li)  = i)T(  vc  Li) 

r'l’(  ->ui:)  = OT(  >?G) 

i’P  3=i’r  ( LI  ) 

'v«"(  ."•;)*  A(  1 ) 

:'\F)  = i{  2) 

c?(  r \ ■)*:«(  0 
r'\(  im.o=  J(  1 ) 
r>T(  :•»•■' ) = '’(  5) 
rc(  Li)  = i(  4.) 

I*(  L(  7 ) , L . 0 ) i.-(  L 1 ) = 3 ( ?) 

I r ( L ( 2)  . L \ 0)  no  TO  -non 

'ru.2  )«»(•») 

T0(  L2 ) ■=•<(  ■!) 

I !•'(''(  LI  ).Li..  0.0)  TF  (1,1)  — Tr  n 

i i Y’ji'.  \ 

! 
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6.81.1  Mach  Model 


The  chermal  mach  model  for  the  filter  includes  heat  transfer  to  and 
from  two  line  segments,  one  upstream  and  one  downstream  of  the  filter.  Six 
nodes  are  considered:  three  fluid  nodes  and  three  wall  nodes  (as  shown  in 

Figure  6.81-2).  The  filter  consists  of  two  nodes:  one  fluid,  representing 

all  the  fluid  in  the  filter,  and  one  wall,  representing  all  the  walls.  The 
temperatures  of  the  upstream  and  line  segment  wall  and  fluid  nodes  are  denoted 
by  TW(L1)  and  TF(Ll),  the  temperatures  of  the  filter  wall  and  fluid  nodes 
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FIGURE  6.81-2 

FILTER  AND  LINE  SEGMENT  NODE  REPRESENTATION 
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are  DT(TFRW)  and  DT(TFFl),  and  the  temperatures  of  the  downstream  line  segment 
wall  and  fluid  nodes  are  TW(L2)  and  TF(L2) . Two  heat  balance  equations  are 
written  to  solve  for  DT(TFRW)  and  DT(TFFl) , using  the  filter  and  line 
segments  material  properties  and  dimensions,  the  atmosphere  and  structure 
temperatures  external  to  the  filter,  and  TW(L1) , TW(L2),  and  TF(L1).  (Note: 
TF(L2)  = DT(TFFl),  see  assumptions).  One  equation  is  a heat  balance  for  the 
filter  fluid  node.  The  second  equations  is  a heat  balance  for  the  filter 
wall  node. 

The  first  equation  represents  four  modes  of  heat  transfer  relative  to 
the  filter  fluid  node: 

1.  Conduction  to  and  from  the  upstream  line  segment  fluid  node 

R3*(TF(L1)-DT(TFFL)) 

where  R3  is  the  conduction  coefficient  between  the  fluids  and  is  equal 
to  CF/ (DXF (LI) /ACF (L1)+DXF  F/ACFF+RMFL1*DELT/ (ACFF**2*RH0IL) ) 

2.  Convection  to  and  from  the  filter  wall  node 

Bl* (DT (TFRW) -DT (TFF1) ) 

where  Bl  is  the  convection  coefficient  between  the  fluid  and  the 
wall  and  is  equal  to  UFWIL*D(ASFW) . 

3.  Heat  transfer  due  to  mass  transfer  into  the  filter  from  the 
upstream  line  fluid  segment. 

MCp* (TF(L1)  - DT(TFFl) ) 

where  MCp  is  the  flow  rate  coefficient  and  is  equal  to  Q(L1)*RH01L*CPFN. 

4.  Heat  addition  due  to  a pressure  drop  across  the  filter 

MCp  * DCAPT 

where  DCAPT  = (1. O/RHOIL)* (P(Ll)-P (L2) ) / (CJ*CPFN) 

Note:  There  may  be  a pressure  drop  across  the  filter  and  if  sufficient 

may  add  heat  to  the  fluid  experiencing  the  pressure  drop.  If  not  an  appreciable 


pressure  drop,  (100  psi  or  greater)  this  term  will  be  negligible. 


These  four  heat  transfer  terms  combine  to  produce  the  equation  for 

the  heat  balance  for  the  filter  fluid: 

MCp  * (DT(TFFl)-DT(TFFl)  . .)  = Bl* (DT (TFRW) -DT (TFF1) ) (1) 

DELT  ° t 

+ MCp* (TF (bl) -DT (TFF1) ) 

+ MCp*DCAPT+R3*  (TF (Ll)  -DT  (TFF1) ) 

where  MCp  is  equal  to  FFMAS*CPFN 

The  second  equation  represents  three  modes  of  heat  transfer  relative 
to  the  filter  wall: 

1.  Conduction  to  and  from  the  upstream  and  downstream  line  segment 

walls 

RI* (TW (Ll) -DT (TFRW) 

where  Rl  is  the  conduction  coefficient  and  is  equal  to  1.0/(DXF(L1)/ 
ACW(LI) *C(LI) )+DXRW/ (D(ACFW)*CW))  and  I = 1 for  the  upstream  line  and 
2 for  the  downstream  line. 

2a.  Convection  to  and  from  the  filter  fluid  mode 
Bl * (DT (TFF1) -DT (TFRW) 
where  Bl  is  defined  above. 

2b.  Convection  to  and  from  the  external  atmosphere 

B2* (D (TA) -DT (TFRW) ) 

where  B2  is  the  convection  coefficient  and  is  equal  to  D(UAF) *D(ASAF) . 

3.  Radiation  exchange  with  the  surrounding  structure 
CIP*(D (TST)-(DT (TFRW) +460. )**4) 

where  CIP  is  the  radiation  coefficient  and  is  equal  to  SIGMA*EPSION>v 
SHAPF*D(ASAF) . 
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these  heat  transfer  modes  combine  to  produce  the  equation  for  the  heat 
balance  of  the  filter  wall  node: 

MCp* (DT (TFRW)-DT (TFRW ) cld ) = R1*(TW(L1)-DT(TFRW))  (2) 

DELT 

+ R2* (TW(L2)-DT (TFRW) ) 

+ Bl* (DT (TFF1) -DT (TFRW) ) 

+B2* (D (TA) -DT (TFRW) ) 

+ CIP*(D(TST)) 
-CIP*((DT(TFRW)+460)**4) 
when  MCp  is  equal  to  D(FMASS) *CPWN 
Equations  (1)  and  (2)  are  solved  for  the  appropriate  temperatures. 

A thermal  model  of  the  above  heat  transfer  terms  for  the  filter  is  shown  in 
Figure  6.81-3. 


ACp*DCAPT 


INLET 
FLUID  S~ 
TF(L1) V 


TW  (LI)* 


EXIT 
FLUID 
TF(L2)  = 
♦DT(TFFl) 


BN  = 
MCp  = 
MCp  = 

RN  = 
CIP  = 

MCP*DCAPT  = 


CONVECTION 

STORAGE 

FLOW 

CONDUCTION 

RADIATION 

GENERATION 


R2- 


•TW(L2) 


D(TA) 


N D(TST) 


FIGURE  6.81-3 
THERMAL  MODEL 
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Ln  Che  hydraulic  math  model  a second  order  relationship  is  used  to 
compute  the  filter  pressure  drop. 

PUP  = PUP-QA*QS* ( COEFFL+QA*COEFFT)  (4) 

where  PUP  = upstream  pressure  (PSI) 

QA  = magnitude  of  flow  (CIS) 

QS  = sign  of  flow 

COEFFL  = laminar  flow  coefficient  (PS1/C1S) 

COEFFT  = turbulent  flow  coefficient  (PSI/CIS^) 

6.81.2  Assumptions 

1.  The  temperature  of  the  fluid  leaving  the  filter  is  equal 
to  the  filter  fluid  node  temperature,  DT(TFFl) . 

2.  The  entire  filter  wall  is  at  the  same  temperature. 

3.  The  temperatures  of  the  atmosphere  and  structure  surrounding 
the  filter  remains  constant. 

4.  The  interface  conductance  between  the  filter  and  line  walls 
is  infinite. 

5.  The  emissivity  of  the  wall  material  is  a constant. 

6.  romplete  fluid  mixing  occurs  in  the  fluid  volume. 

6.81.3  Computational  Methods 

The  subroutine  executes  the  above  discussed  calculations  as  follows. 
Section  1000 

The  fluid  and  wall  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised 
to  the  forth  power,  and  the  default  values  are  assigned. 
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Section  2000 


The  laminar  flow  coefficient  D(CONSEL)  and  turbulent  flow  coefficient 
D(C0NE2)  are  adjusted  for  fluid  other  than  MIL-H-5606B  and  temperatures  other 
than  100°F.  Equation  (A)  is  then  solved  to  obtain  the  filter  pressure  prop. 
Section  3000 

Property  values  are  assigned.  Dimensions  and  coefficients  are  calcu- 
lated. The  flow  direction  is  determined.  (The  program  is  set  up  with  the 
flow  entering  connection  line  one  (LI)  and  leaving  thru  connection  line 
two  (L2) . During  the  calculation  the  flow  direction  is  checked.  If  the 
flow  has  reversed  flow  direction,  the  program  reassigns  connection  numbers 
so  that  the  flow  still  enters  connection  line  one.)  Some  coefficients  are 
then  recalculated  if  the  flow  is  reassigned.  A 2 x 2 matrix  is  loaded  and 
the  mathematical  equations  are  solved  for  DT(TFFl)  and  DT(TFRW)  and  stored 
in  the  B computational  array.  The  calculated  values  are  assigned  to  their 
proper  storage  locations  and  this  boundary  conditions  are  assigned  to  arrays 
in  COMMON/TRANS/for  distribution  throughout  the  entire  program. 

6 . 81 . A Approximations 
Not  applicable. 

6.81.5  Limitations 
Not  applicable. 
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6.81.6  Variable  Names 


Variable 

Description 

Dimens  ion 

A(  ) 

Computational  array 

— 

AAA 

Dummy  variable 

— 

D(ACB) 

Cross  sectional  area  of  the  filter  bowl 

IN2 

ACFF 

Cross  sectional  area  of  the  fluid  in  the  filter 

IN2 

D(ACFW) 

Cross  sectional  area  of  the  filter  walls  at  the 
connections 

IN2 

D(ASAF) 

External  surface  area  of  the  filter 

IN2 

I)  (ASFW) 

Internal  surface  area  of  the  filter 

IN2 

Al,  A2 

Dummy  variables 

— 

8(  ) 

Computational  array 

— 

CENT 

Fluid  viscosity 

in2/sec 

CIP 

Radiation  coefficient 

WATTS  /°R4 

COEFFL 

Viscosity  corrected  laminar  flow  coefficient 

PST/CIS 

COEFFT 

Viscosity  corrected  turbulent  flow  coefficient 

PSI/CIS2 

CJ 

Mechanical  equivalent  of  heat 

FT-LBm/ WATTS- SEC 

D(CONE2) 

Turbulent  flow  coefficient 

PSI/CIS2 

D(CONSEL) 

Laminar  flow  coefficient 

PSI/CIS 

CPWN 

Specific  heat  of  the  filter  walls 

WATTS-SEC/LBm-°F 

CW 

Thermal  conductivity  oi  the  filter  walls 

WATTS/ IN- °F 

DCAPT 

Heat  added  to  fluid  due  to  a pressure  change 

°F 

DDD 

Dummy  variable 

— 

DENS 

Fluid  density 

LBm-SEC2/IN4 

DXRW 

Distance  from  wall  node  to  interface  with 
line  segment 

IN 

EPSION 

Emissivity  factor  of  the  walls 

— 

D(FMASS) 

Mass  of  the  filter  walls 

l.iU 
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Variable 

Description 

Dimension 

FRFM 

Mass  of  the  fluid  in  Che  filter 

LBm 

I ERROR 

Dummy  variable 

— 

D(ITC) 

Initial  temperature  of  the  filter  walls 

1 

°F 

D(TTF) 

Initial  temperature  of  the  fluid 

°F 

L1.L2 

Line  connection  addresses 

— 

MTYPE 

Material  type  of  the  walls 

— 

D(PERC) 

Percentage  heat  added  to  the  fluid  due  to  a 
drop 

pressure 

RHOIL 

Fluid  density 

LB  /IN3 
m 

RHOW 

Density  of  filter  walls 

LBm/lN3 

RMFL1 

MAss  flow  rate  entering  filter 

LBm/SEC 

RMFL2 

Mass  flow  rate  leaving  filter 

LBm/SEC 

R1,R2 

Dummy  variables 

— 

SHAPE 

Shape  factor  case  to  surrounding  structure 

— 

SIGMA 

Stefan-Boltzman  constant  for  radiation 

WATTS  /IN2-°P‘ 

D(TA) 

Temperature  of  the  surrounding  atmosphere 

°F 

TEMPI 

Dummy  variable 

— 

DT(TFFl) 

Filter  fluid  temperature 

°F 

DT(TFRW) 

Filter  wall  temperature 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 

D(UAF) 

Heat  transfer  coefficient  (surrounding 
atmosphere  to  filter  walls) 

WATTS /IN2-0 F 

UFWIL 

Heat  transfer  coefficient  (fluid  to  filter 

walls) 

WATTS /IN2-°F 

D (VOLUME) 

Volume  of  fluid  inside  filter 

IN3 
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6.81.7  Subroutine  Listing 


SUB  ROUT  I. 'll.  TFILT81  (D,DT,DD,L) 

D I. 'it  NS  ION  D(  1)  » DT(  1)  , DD(  1 ) , L(  1) 

COi-uiOM  /TRANS/P(  300)  ,Q{  300)  ,C(  300)  ,TC(  300)  ,TW(  300)  ,TF(  300)  , 
+ ACF( 300) , ACW ( 300) ,DXF( 300) , TIME , DLLT, PI , NLINL, NLL 
CO.'iHON  /CO.-i  P/  Li  L’Y  Pe ( 9 9 ) ,NC<  99)  , KTE.iP(99)  , IND,  IENTR,  I NLL 
COM. i ON  / STLADY/PN (90) ,QN(90) ,PLX(90) ,PDLEG(90) ,QL(90) , 

+ QA,0S,Q1, PUP, PDOwN , NNODL , NLEG , NCPM , TERM , LEGN , ICON, INV, 

+ INX, INZ ,NUP( 90) ,NDWN( 90) ,NLLbM( 90) , ILLGAO( 90) , I LLG( 1000) 
COt'i.iON  /FUJI  0/  ATPRLS , CF , CPFN , FT  ISM  P , PROP(  13,  3) 

DIill  NS  I ON  A(  2,2)  , U(  2) 

INTLGLR  UAf  , \GAF  , FUASS , TA , TST,  TFF 1 , TFRW  , ITC  , ITF  , ASF.v , 

+ VOLUME,  ACFW , ACB , CONSLL,  C0NL2 , PERC 
C D ARRAY  VARIABALES 

DATA  . 1TY PL/ 1/ , FGASS/ 2/ , VOLUME/ 3/ , ACFw/ 4/ , ACB/ 5/ 

+ , ASAF/6/ , ASFw/7/ , UAF/ 8/ , TST/ 1 0/ , TA/ 1 1/ , ITF/1 2/ , ITC/1 3/ 

+ , CONS  L L/ 1 4/,  COM  L 2/1 V,  PBRC/9/ 

DATA  SIGMA/ . 349L-1 1/ , SilAPF/ . 93/ , EPS  ION/ . 3/ , CJ/  8.85/ 

C OT  ARAAY  VAARIA3ALLS 

DATA  TFF1/1/ ,TFRvJ/ 2/ 

UAF  =H  LAT  TRANSFER  COEFFICIENT  CASE  AwALL  TO  Ail  B I ENT 
ASAF  =SURFACL  AREA  CASE  WALL  TO  AMBIENT 
F.iASS  = F I L F L R WALL  MASS,  LBS.  (TOTAL  WtIGUT) 

TFF1  =TE't-. PLRATURE  OF  THE  FLUID 
TFRN  = " " OF  THE  CASSE  WALL 

V0L1J. in=TOTAL  VOLUr.L  OF  FLUID  IN  CASE 
ASFw  =S UR FACE  AREA  CASE  WALL  TO  INSIDE  FLUID 
TA  = TEMPERATURE  OF  SURROUNDING  AMBIENT 
TST  =TE.iPLRATURL  OF  " " STRUCTURL 

A C F*W = D I S TAN C L INLET  TO  EXIT 

ACB=CROSS  SECTIONAL  ARLA  OF  THE  INSIDE  OF  THL  BOWL 
IF(IENTR)  1900,2000,3000 
C ***  1000  SECTION 
1000  CONTINUE 
L1  = L(  1) 

L2=L( 2) 

DT( T F F 1 ) = D ( ITF) 

DT(  TFRvJ ) =D(  ITC) 

IF( D( CONSLL) .Lb. 0.0)  D( CONSEL) = . 0001 
D( TbT) = ( 0( TST) +460. )**4 
IF  (D(UAF).LQ.O.O)  D(UAF)=.0069 
TF( LI )=D( ITF) 

TF ( L 2 ) = D ( ITF) 

TC( LI ) =D( ITC) 

TC ( L2 ) =D( ITC) 

KTYPL  = D(  MTYPL)  + . 001 
RHOW=PROP( XTYPL, 2) 

CW-PROP( KTYPL , 3) 

CPWN=PROP( KTYPL, 1) 

RETURN 

C ***  2000  SECTION 


6.81.7  (Continued) 


2000  CONTINUE 

DENS=RiiO( TF(  L(  1)  ) , PUP) 

CENT=VISC ( TF( L( 1) ) , PUP) 

COEFFL=C ENT* DENS* D( CONSEL) / ( .028*8. 2E-5) 

COEFFT=CENT** . 25*DENS*D( CONE2)/ ( . 40906234*3. 2E- 5) 
PUP=PUP-QA*QS* ( COEFFL+QA*COEFFT) 

RETURN 
3000  L1=L( 1 ) 

L2=L(  2) 

I F ( Q ( L 1 ) . GT . 0 . C ) GO  TO  3003 
L1=L( 2) 

L2=L( 1) 

RUOIL=386. 4*RHO(TF{  M)  ,P(L1)  ) 

FFMA3S=D(  VOLUME)  *RIIOIL 
3003  AAA=D( ACB)/2. 

DDD=SQRT( AAA*  4 ./PI ) 

TCMP1=DT(TFRW) 

UFWI L=UFW( AAA, ODD, ABS ( Q( Ll ) ) ,TF( Ll ) , P( LI ) ) 

DXRW=D( VOLUME ) / ( 2.0*D(ACFW) ) 

ACFF=D( AC3)/3. 

DXFF=FFMASS/ { RHOIL*D(  AC'3)  *2.  ) 

3033  RNFLl=A3S(Q(Ll) ) *RHOIL 
Ri-1FL2=ABS(Q(  L2)  ) *RHOIL 

Rl  = 1 . 0/ ( DXF  ( Ll ) / ( ACW(  L1)*C(  Ll ) ) +DXRw/  ( D(  ACFW ) *Cwv  ) 

R2=  1 . 0/  ( DXF  ( L 2 ) / ( ACW ( L2)*C(  L2)  ) +DXRN/  ( D(  ACFW ) *CW)  ) 
R3=CF/(DXF( Ll ) /ACF ( Ll ) +DXFF/ACFF+RNFLl*OELT/ ( ACFF* * 2*RHOI L) ) 
31=UFWIL*D( ASFW) 

B2=0( UAF ) *D( ASAF ) 

DCAPT= ( 1 ,/RHOI L) *A3S( P( Ll)-P( L2 ) ) / ( CPFN*CJ ) 
CIP=SIG.-1A*SI1APF*EPSI0N*D(  ASAF) 

C TFF1 , TFRW  NODES  IN  ORDER 

3099  A(  1,  1)=FFNASS*CPFN/DELT+R.4FL1*CPFN+31  + R3 
A ( 1,2) =-31 

B(  1 ) = FFMASS*C  PFN*  DT(  TFF1 ) /DELT+R.'1FL1*CPFN*TF  ( Ll) 

+ +RNFL1*CPFN*DCAPT*D( PERC) +R3*TF( Ll ) 

A( 2, 1)=-31 

A( 2,2) =D( FNASS) *CPNN/DLLT+3 2+31+R1+R2 
3 ( 2 ) = D(  FilASS ) *CPWN*  DT{  TFRW ) /DELT+Rl*TW  ( L1)+R2*TW(  L2) 

+ +32*  D( TA ) +CI P*0 ( TST) -Cl P* ( ( DT( TFRW ) I 4 60. ) ** 4 ) 

CALL  SIi"!lJLT(  A,  3,2, 1 ERROR) 

TF ( L2 ) =3 ( ] ) 

TC ( Ll ) =3 ( 2 ) 

TC(L2)=B( 2) 

DT ( TFF1 ) =3 ( 1) 

DT{ TFRW) =3( 2) 

RETURN 

END 
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6.101  SUBROUTINE  ACT101 


TACT101  simulates  a simple  servo  actuator  with  a mechanical  input  to  the 
servo  valve,  which  operates  open  loop,  without  feedback  as  shown  in  Figure 
6.101-1. 

A time  history  of  valve  position  is  inputed  and  a first  order  or  straight 
line  interpolation  is  used  between  the  input  points. 

The  valve  is  assumed  to  be  a linear  square  port  configuration,  with  zero 
lap.  The  width  of  each  port  slot  is  inputed  independently,  to  allow  the  valve 
areas  to  be  matched  to  the  actuator  piston  areas.  The  initial  actuator  position 
is  input,  together  with  the  external  loads  at  the  fully  retracted  and  extended 
stroke  positions.  The  load  stroke  curve  is  assumed  to  be  linear  between  these 
positions.  The  steady  state  balancing  system  uses  the  load  at  the  initial 
position  to  determine  the  pressure  drop  across  the  piston.  The  effects  of 
atmospheric  pressure  is  incorporated  into  the  load. 

The  subroutine  calculates  two  actuator  fluid  temperatures,  two  valve  fluid 
temperatures,  two  actuator  wall  and  one  actuator  piston  temperatures,  and  one 
valve  wall  temperature. 


OP74  0773  2 

FIGURE  6.101-1 

TYPE  NO.  101  VALVE  CONTROLLED  ACTUATOR 
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6.101-1  Math  Model 


The  thermal  math  model  for  the  actuator  includes  heat  transfer  to  and 
from  two  connecting  line  segments,  one  upstream  and  one  downstream  of  the 
actuator  valve.  For  the  actuator  valve  combination  there  are  a total  of 
12  nodes:  six  fluid  nodes,  five  wall  nodes,  and  one  piston  node,  as  shown 

in  Figure  6.101-2. 


ACTUATOR,  VALVE  AND  LINE  SEGMENT  NODE  REPRESENTATION 


GP7?”TO«S-13 


The  temperatures  of  the  upstream  line  segment  nodes  are  TF(L1)  and  TW(L1) 
for  the  fluid  and  wall  respectively,  the  temperatures  of  the  downstream  line 
segment  nodes  are  TF(L2)  and  TW(I,2)  for  the  fluid  and  wall  respectively.  The 
actuator  valve  nodes  temperatures  are  DT(TVFl),  DT(TVF2),  and  DT(TVN)  for  two 
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fluids  and  the  valve  wall  respectively.  The  actuator  wall  temperatures  are 
DT(TCN)  for  the  walls  around  volume  one,  and  DT(TDN)  for  the  walls  around 
volume  two.  The  two  actuator  fluid  nodes  temperatures  are  DT(TFAl)  for  the 
fluid  in  volume  one,  and  DT(TFA2)  for  the  fluid  in  volume  two,  and  the  actuator 
pistons  node  temperature  is  designated  as  DT(TPN). 

Eight  equations  are  written  to  solve  for  the  eight  valve  and  actuator 
temperatures,  using  the  actuator,  valve  and  line  segment  material  properties 
and  dimensions,  and  external  atmosphere  and  structure  temperatures  of  the 
actuator  and  valve.  The  equations  represent  the  heat  transferred  to  and 
from  each  of  the  eight  actuator  nodes. 


ACTUATOR  WORKINC  SIMULATIONS 

During  operation  of  the  actuator,  fluid  always  enters  connection  one,  or 
flows  into  valve  volume  one,  and  then  has  two  possible  paths  as  shown  in 
Figure  G.IO.’-S.  It  either:  1)  m ay  enter  actuator  volume  one.  If  this  happens 
fluid  from  actuator  volume  two  then  leaves  actuator  volume  two,  due  to  movement 
of  the  piston,  and  travels  into  valve  volume  two.  The  fluid  then  leaves  valve 
volume  two  to  line  two,  or  2)  may  enter  actuator  volume  two  moving  the  piston 
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which  forces  fluid  out  of  actuator  volume  one  into  valve  volume  two  which  then 
leaves  valve  volume  two  again  to  line  two. 

To  describe  the  math  model  we  shall  only  consider  the  first  path.  Recall 
that  eight  equations  are  necessary.  The  first  equation  represents  four  modes 
of  heat  transfer  relative  to  the  valve  volume  one  fluid. 

1)  Conduction  to  and  from  the  upstream  line  fluid  node 

R15*  (TF (LI)  - DT(TVFl) ) 

where  R15  is  the  conduction  coefficient  for  the  fluids  equal  to 
CF/ (DXF(Ll) /ACF(Ll)  + DXV/ACFV  + RMFL1*DELT/(ACFV**2*RH0IL) ) 
and  RMFL1  is  the  mass  flow  rate  equal  to  Q(L3)*RH0IL 

2)  Heat  transfer  due  to  mass  transfer  of  fluid  into  the  valve  from 
the  upstream  line  segment 

MCp* (TF (LI)  - DT(TVFl)) 

where  MCp  is  the  mass  transfer  term  and  is  equal  to  RMFL1*CFFN 

3)  Convection  to  and  from  the  valve  wall  node 

B7*(DT(TVN)  - DT(TVFl) ) 

where  B7  is  a convection  coefficient  and  is  equal  to  UFWIL*r (ASFV) /2 . 0 
A)  Heat  added  directly  to  the  fluid  due  to  a pressure  drop  from  line 
one  to  the  valve  volume. 

MCp*3CAPTl 

where  MCp  is  as  defined  previously  and  DCAPT1  is  equal  to  1.0/RH0iL* 

(P (LI)  - DTfPPl) )/  (CJ*CPFN*2 . ) 

These  terms  are  combined  to  produce  the  equation  for  heat  balance  for 
a volume  one, 

MCp  (DT(TVFl)  - DT(TVFl)  ) = R15*(TF(L1)  - DT(TVFl))+MCp  (TF(L1)  - (1) 

DELT  ULU 

DT(TVFLl)  + B7*(DT (TVN)  - DT(TVFl) ) + 
MCp*DCAPTl 

when  MCp  = FMASS*CPFN 
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The  second  equation  represents  three  modes  of  heat  transfer  relative  to 
the  actuator  volume  one. 

1)  Heat  transfer  due  to  mass  transfer  into  the  actuator  volume 
from  the  valve  volume  one 

MCp*(DT(TVFl)  - DT(TFAl)) 
where  MCp  is  equal  to  Q(L1)*RH0IL*CPFN 
2a)  Convection  to  and  from  the  actuator  walls  surrounding  volume 
one  B3*(DT(TCN)  - DT(TFAl)) 

where  B3  is  the  convection  coefficient  equal  to 
UA1C*ASA1C 

2b)  Convection  to  and  from  the  piston  node 
B5* (DT(TPN)  - DT(TFAL) ) 

where  B5  is  the  convection  coefficient  equal  to  D(UAlP)*D(AREAl) . 

3)  Heat  added  directly  to  the  fluid  due  to  a pressure  drop  across 
the  orifj.ce  into  the  actuator. 

MCp*DCAPTl 

MCp  is  equal  to  RFML1*CPFN  and  DCAPT  is  the  same  as  defined  previously. 
These  terms  are  combined  to  produce  the  heat  balance  equation  for  the 
actuator  volume  one. 

MCp  (DT(TFAl)  - DT (TFAl)n  ) = MCp* (DT (TVF1)  + DCAPT1  - DT(TFAl))  + (2) 

DELT  °LD 

B3* (DT ('i’CN)-DT (TFA1) ) + B5*(DT(TPN)  - 
DT(TFAl)) 

where  MCp  is  equal  to  FMASSl(CPFN) . 

The  third  equation  represents  one  mode  of  heat  transfer  relative  to  the 
actuator  volume  two. 

la)  Convection  to  and  from  the  actuator  wall  surrounding  volume  two 

B4*DT(TDN)  - DT (TFA2) ) 
where  B4  is  equal  to  UA2D*ASA2D. 

lb)  Convention  to  and  from  the  actuator  piston  noae 

B6*0nn'PN)  - DT  (TFA2) ) 
where  B6  is  equal  to  ’JA2P*D(ARFj\2)  . 
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These  terms  combine  to  form  the  heat  balance  equation  for  the  actuator 
exit  volume  two. 

MCp  *(DT (TFA2)  - DT(TFA2)  ) = B4*(DT(TDN.)  - DT (TFA2) ) + (3) 

DELT  0LD 

B6*  (DT(TPN)  - DT (TFA2) ) 
where  MCp  is  equal  to  FMASS2*CPFN. 

The  fourth  equation  represents  three  modes  of  heat  transfer  relative 
to  the  valve  volume  two,  the  exit  volume. 

1)  Heat  transfer  due  to  mass  transfer  of  fluid  into  the  valve 
volume  from  actuator  volume  two. 

MCp* (DT (TFA2)  - DT(TVF2) ) 

where  MCp  is  equal  to  RMFL2*CpFN  and  RMFL2  is  equal  to  Q(L2)*RH0IL. 

2)  Convection  to  and  from  the  valve  wall  node 

B7* (DT(TVN)  - DT(TVF2) ) 
and  B7  has  been  defined  previously. 

3)  Heat  added  directly  to  the  fluid  due  to  a pressure  drop  into 
the  actuator  volume  two. 

MCp*DCAPT2 

where  MCp  has  just  been  defined  and  DCAPT2  is  equal  to 
1.0/RHOIL*(DT( PP2)  - P(L2) ) /(CJ*CPFN*2. ) *2. 0. 

These  terms  combine  to  produce  the  equaLion  for  the  heat  transferred  to 
and  from  the  valve  exit  volume  two. 

MCp  * (DT (TVF2)  - DT (TVF2)  ) = MCp* (DT(TFA2)  - DT(TVF2) ) + (4) 

DELT  U 

B7*(DT(TVN)  - DT (TVF2) ) + MCp*DCAPT2 

where  MCP  is  equal  to  FMASS*CPFN. 

The  fifth  equation  represents  three  modes  of  heat  transfer  to  and  from 
the  valve  walls. 
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la)  Conduction  to  and  from  the  upstream  line  segment  wall  node 

Rl* (TW(L1)  - DT(TVN) ) 

where  Rl  is  the  conduction  coefficient  for  the  walls  equal  to 
1 . 0(DXF (LI) / (ACW(Ll) *C(L1)  + DXV/ (ACV*CV) ) with  the  interface 
conductance  between  the  two  nodes  being  infinite. 

lb)  Conduction  to  and  from  the  downstream  line  segment  wall  node 

R2*(TW(L2)  - DT(TVN)) 

and  R2  is  equal  to  Rl  with  LI  replaced  by  L2 

lc)  Conduction  to  and  from  the  actuator  wall  node  surrounding  volume 
one. 

R3* (DT (TCN)  - DT(TVN)) 

where  R3  is  equal  to  1. 0/(DXV/ (ACV*CV)  + DXC/(ACC*CC)  + 

1. 0/ (D(ACCV)*D1*D(CCV) ) ) and  D1  represents  the  amount  of 
mass  that  surrounds  the  actuator  volume  one  and  is  equal  to 
DT (VOL1) / (DT (VOL1)  + DT(V0L2)) 

ld)  Conduction  to  and  from  the  actuator  wall  node  surrounding 
volume  two,  equal  to  DT (V0L1) / (DTV0L1)  + DT(V0L2)) 

R4*(DT(TDN)  - DT(TVN)) 

where  R4  is  equal  to  1. 0/ (DXV/ (ACV*CV)  + DXD/(ACD*CC)  + 

] . 0/ (D(ACCV)*D2*D(CCV) ) . D2  represents  the  amount  of 
mass  that  surrounds  the  actuator  volume  two,  and  is  equal  to 
DT (V0V2) / (DT (V0L1)  + DT(V0L2). 

2a)  Convection  :o  and  from  the  valve  fluid  in  the  entrance  volume 
one . 

K7* (DT(TVFl)  - DT(TVN)) 

% 

where  B7  was  defined  previously. 
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2b)  Convection  to  and  from  the  valve  fluid  in  the  exit  volume 


two. 

B7*(DT (TVF2)  - DT(TVN) ) 

2c)  Convection  to  and  from  the  external  atmosphere 
A2*(D(TA)  - DT(TVN)) 

where  A2  is  the  convection  coefficient  for  the  walls  and 
is  equal  to  D(UAV) *D(ASAV) . 

3)  Radiation  exchange  with  the  surrounding  structure 
CIP1*(D(TST)  - (DT(TVN)  + 460)^) 
where  CIP1  is  the  radiation  coefficient  equal  to  SIGMA*SIIAPF* 
EPSION*D(ASAV). 

These  terms  are  combined  to  produce  the  equation  for  the  heat  balance  for 
the  valve  walls. 

MCp  (DT(TVN)  - DT (TVN)n  ) = R1*(TW(L1)  - DT(TVN) )+  R2*(TW(L2)  - (5) 

DELT  0LD 

DT(TVN))  + R3* (DT (TCN)  - DT(TVM) ) + 

R4* (DT(TDN)-  DT(TVN))  + B7* (DT (TFA1)+ 

DT (TFA2)  - 2*DT (TVN) ) + A2*(D(TA)  - 
DT(TVN))  + CIP1*(D(T3T))  - CIP1*(DT(TVN) 
+ 460.)**4 

The  sixth  equation  represents  three  modes  of  heat  transfer  relative  to 
the  actuator  wall  node  surrounding  volume  one. 

la)  Convection  to  and  from  the  fluid  in  volume  one. 

B3*(DT (TFAl)  - DT(TCN) ) 
where  B3  is  the  same  as  defined  previouslv. 

lb)  Convection  to  and  from  the  surrounding  atmosphere 

B1*(D(TA)  + DT(TCN)) 
where  B1  is  equal  to  UAC*D(ASAC)*D1. 
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2a)  Conduction  to  and  from  the  actuator  wall  node  that  surrounds 
volume  two 

R5*(DT(TDN)  - DT(TCN)) 

where  R5  is  the  conduction  coefficient  equal  to  CC/(DXD/ACD  + DXC/ACC) . 
2b)  Conduction  to  and  from  the  valve  wall 

R3*(DT(TVN)  - DT(TCN) ) 
with  R3  defined  previously. 


2c)  Conduction  to  and  from  the  piston  node 

R9*(DT(TPN)  - DT(TCN)) 

where  R9  is  equal  to  1.0/(DXP/(ASCP*CP)  + DXC/ (ACC*CC) ) . 

3)  Radiation  exchange  with  the  surrounding  structure 

D1*C1P2*(D (TST) - (DT (TCN)+460) 4) 
where  C1P2  is  the  radiation  coefficient  equal  to  SXGMA*SHAPE* 
EPSION*D (ASAC) . 

The  terms  then  combine  to  produce  the  heat  balance  equation  for  the 
actuator  wall  node  around  volume  one. 

MCp  *(DT(TCN)  - DT(TCN).,_)  = B1*(D(TA)  - DT(TCN) ) + 

DELT  °"D 

B3*(DT(TFAl)  - (6) 

DT(YCN))  + R5*(DT(TDN)  - DT(TCN))  + R3*(DT(TVN)  - 
DT(TCN) ) + R9*(DT(TPN)  - DT(TCN) ) + D1*C1P2* (D (TST) ) - 
D1*CIP2* (DT(TCN)  + 460)**4 
where  MCp  is  equal  to  CMASS*CPCN. 
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The  seventh  equation  represents  two  modes  of  heat  transfer  relative  to 
the  actuator  piston. 

1)  Convection  to  and  from  the  two  actuator  fluids  in  volume  one  and 
volume  two,  respectively,  with  coefficients  defend  previously 

B5*(DT(TFA1)  - DT(TPN)) 
and  B6* (DT (TFA2)  - DT(TPN)). 

2)  Conduction  to  and  from  the  two  actuator  wall  nodes  surrounding 
volumes  one  and  two  respectively,  with  the  terms  being  defined 
previously 

R9*(DT(TCN)  - DT(TPN) ) and 
R12*  (DT(TDN)  - DT(TPN) ) . 

These  terms  combine  to  produce  the  heat  balance  equation  with  the 
actuator  piston. 

MCp  * (DT (TPN)  - DT(TPN)  ) = B5* (DT (TFAl ) - DT(TPN))  + 

delt  ulu 

B6* (DT (TFA2)  - DT(TPN))+ 

R9*(DT(TCN)  - DT(TPN) ) + R12* 
(DT(TDN)  - DT(TPN)) 
where  MCp  is  equal  to  PMASS*CPFN. 

The  eighth  equation  represents  three  inodes  of  heat  transfer  relative  to 
the  actuator  wall  node  surrounding  actuator  volume  two. 

la)  Convection  to  and  from  the  fluid  in  volume  two 
B4*(DT(TFA2)  - DT(TDN) ) 

where  B4  is  a convection  coefficient  equal  to  UA2D*ASA2D 
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m 


lb)  Convection  to  and  from  the  surrounding  atmosphere 

B2* (D(TA) *DT (TDN) ) 

where  B2  is  equal  to  D2*UAC*D(ASAC)  and  D2  is  a variable  to 
calculate  the  wall  mass  that  surrounds  volume  two,  equal  to 
DT (V0L2) / (DT (V0L1)  + DT(V0L2)). 

2a)  Conduction  to  and  from  the  other  actuator  wall  node 

R5*(DT(TCN)  - DT(TDN)) 
with  R5  defined  previously. 

2b)  Conduction  to  and  from  the  valve  wall  mass 

R4*(DT(TVN)  - DT(TDN)) 

where  R4  is  the  conduction  coefficient  between  the  walls  equal 
to  1.0/(DXV/(ACV*CV)  + DXD/(ACD*CC)  + 1.0/(D(ACCV)*D2*D(CCV))) 
2c)  Conduction  to  and  from  the  actuator  piston 
R12*(DT(TDN)  - DT(TDN) ) 

where  R12  is  equal  to  1.0/(DXP/(ASCP*CP)  + DXD/ (ACD*CC) ) 

3)  Radiation  exchange  with  the  surrounding  structure 
D2*C1P2*(D(TST)  - (DT(TDN)  + 460)4) 


with  these  terms  the  same  as  defined  previously. 

These  terms  then  combine  to  produce  the  heat  balance  equation  for  the 
actuator  wall  node 


MCp  *(DT(TDN)  - DT(TDN)  ) = B4*(DT(TFA2)  - DT(TDN))  + 

DELT 

B2*(D(TA)  - 

DT(TDN))  + R5*(DT(TCN)  - DT(TDN) ) + R4* (DT (TVN)  - 
DT(TDN))  + CIP2*D2*  D(TST)  - CIP2*D2*(DT(TDN) 

+ 460)**4 

where  MCp  is  equal  to  DMASS*CPDN.  A thermal  model  of  the  above  8 
equations  is  shown  in  Figure  6.101-4.  Equations  (1)  thru  (8)  are  solved  for  the 
appropriate  temperatures. 
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FIGURE  6. 101- A 
THERMAL  MODEL 
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In  the  hydraulic  math  model  the  total  actuator  load  is  given  by 


DT (FORCE)  - DT(LOADZ)  + DT (LOADS) *DT(X) 

where 

DT(LOADZ)  - LOAD  AT  ZERO  STROKE  (LB) 

DT (LOADS)  = LOAD/ STROKE  SLOPE  (LB/ IN) 

DT (X)  = ACTUATOR  POSITION  (IN) 

The  valve  opening  is  determined  from  interpolation  of  the  valve  input 
data  at  the  current  time  step.  Depending  on  the  direction  of  the  valve  movement 
the  overboard  flow  at  the  actuator  node  is  calculated.  For  an  actuator  that 
is  extending 

QN(N)  = -DT (NCAV) *Q1* (D(AREAl)  - D(AREA2) ) /D(AREAl)  (9) 

The  pressure  gain  or  loss  across  the  piston  is  calculated  using  the  force 
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balance  equation 

DT(PFORCE)  = (-PN (N) * (D (AREA1)  - D (AREA2) ) ) /D (AREA2)  + QS*D(DAMP) /D(AREA2)  (10) 
If  the  actuator  where  retracting  equations  (9)  and  (10)  would  become 

QN (N)  = - DT (NGAi ) *QL* (D (AREA1)  - D(AREA2) ) /D(AREA2)  (11) 

and 

DT(PFORCE)  = (-PN (N) * (D (AREA2)  - D(AREAl) ) + DT (PFORCE) ) /D(AREAl)  - (12) 

QS*D(DAMP)D(AREA1) 

6.101.2  Assumptions 

1)  The  fluid  exiting  from  the  actuator  valve  to  the  connecting  line 
is  equal  to  DT(TVF2) . 

2)  The  Interface  conductance  betwen  the  piston  and  the  actuator  walls 
is  infinite. 

3)  Complete  mixing  occurs  in  all  fluid  volumes. 

4)  Piston  and  valve  leakages  are  negligible. 

5)  The  emissivity  of  the  walls  remains  constant,  at  .3  for  stetl. 

6)  The  atmosphere  and  structure  temperatures  remain  constant. 

6.101.3  Computational  Methods 
Section  1000 

The  fluid  and  wail  temperatures  are  initialized,  the  external 
structure  temperature  is  changed  from  degrees  Farenheit  to  Rankine  and  raised 
to  the  fourth  power,  and  the  default  values  are  assigned.  Compute  load/stroke 
slope,  determine  valve  position  and  compute  the  coefficient  for  the  valve  opening. 
Section  2000 

This  section  is  called  from  TLEGCAL  via  COMPE  for  each  connection 
number  for  each  iteration.  Calls  are  made  for  each  iteration  because,  the  overboard 
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flow  and  pressure  drop  across  the  piston  head  very  with  the  flow  into  the 
actuator  and  the  pressure  in  the  piston  cavity. 

One  of  the  cavities  is  required  to  be  a system  node.  Which  cavity  it 
is  depends  on  the  valve  position  at  the  current  time  step.  If  NODE  = 1 it  is 
in  ill  cavity,  if  MODE  - 2 it  is  in  II 2 cavity. 

The  steady  state  section  is  complicated  by  the  need  to  determine  if  the 
actuator  is  at  its  stroke  limits,  and  if  the  flow  guess  is  taking  it  toward 
or  away  from  the  limit. 

When  it  is  at  its  limits,  and  is  being  driven  into  the  limit,  a high 
impedance  is  added  into  the  leg,  and  the  overboard  flow  Is  set  to  zero. 

(Overboard  flow  is  a displacement  flow  due  to  unequal  areas) . 

The  steady  state  calculation  set  up  requires  that  connection  111  must  be 
the  last  or  only  element  in  the  upstream  leg,  and  connection  II 2 is  the  first 
element  in  the  downstream  leg. 

The  upstream  leg  flow  is  used  to  calculate  the  overboard  flow  and  piston 
velocity.  If  the  valve  is  closed  the  overboard  flow  is  set  to  zero. 

For  the  upstream  leg  the  valve  impedance  DT(PPIP)  is  added  into  PUP  of 
that  leg.  For  the  downstream  leg,  the  valve  impedance  PT(PP2P)  is  added  into 
PUP  and  the  constant  pressure  drop  DT(PFORCE)  across  the  piston  is  subtracted 
from  PUP  or  added  if  it  is  a pressure  rise. 

Section  3000 

This  section  calculates  the  thermal  transient  response  of  the  actuator. 

INTERP  is  called  to  obtain  an  interpolated  value  of  valve  position  XV. 

With  this  value  of  XV,  the  flows  into  the  actuator  chambers  are  calculated. 

If  XV  is  zero,  the  flows  are  set  to  zero.  For  XV  >0,  Q1  is  the  flow  from 
connection  111  to  chamber  111,  and  Q2  the  flow  from  chamber  H2  to  connection  Hi. 


For  XV<0  the  flows  are  reversed. 


From  the  valve  position  recalculate  the  flow  coefficients  through  the 
valve.  The  position  of  the  actuator  piston  is  computed  using  a simple  integra- 
tion. 

DT (X)  = DT (X)  + (DT(VEL)  + DT(VELO) )*DELT/2. 

The  cylinder  volumes  are  easily  calculated  as 

DT(VOLl)  = DT(VOLl)  +(DT(x)-XO)*D(AREAl) 

DT (V0L2)  = DT (V0L2)  -(DT(x)-X0)*D(AREA2) 

Property  values  are  assigned.  Dimensions  and  coefficients  are 
calculated.  The  flow  direction  is  determined.  (The  program  is  set  up  with 
the  flow  entering  connection  line  one  (LI)  and  leaving  thru  connection  line 
two  (L2) , During  the  calculation  the  flow  direction  is  checked.  If  the  flow 
has  reversed  flow  direction,  the  program  reassigns  connection  numbers  so  Lhat 
the  flow  still  enters  connection  line  one).  Some  coefficients  are  then 
recalculated  if  the  flow  is  reassigned.  A 8 x 8 matrix  is  loaded  ane  the 
mathematical  equations  are  solved  for  DT(TVFl),  DT(TFAl) , DT (TFA2) , DT(TVFL) , 
DT(TVN)  DT(TCN),  DT(TDN)  and  DT(TPN)  and  stored  in  the  B computational  array. 
The  calculated  values  are  assigned  to  their  proper  storage  locations  and  the 
boundary  conditions  are  on  distribution  throughout  the  entire  program. 

6.101.4  Approximations 

1)  All  input  heat  transfer  and  interface  coefficients  remain 
constant . 

2)  External  temperatures  all  remain  constant. 

♦ 

6.101.5  Limitations 

This  straight  line  flow  characteristics  of  the  valve  and  the  straight  line 
load  characteristics  limit  the  applicability  of  this  subroutine  to  a simple 
type  of  actuator. 
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6 . 10 1 . 6 Variable  Listing 


Variable 
A(  ) 

AAA 

ACA1 

ACA2 

ACC 

D(ACCV) 

ACD 

ACFV 

ACV 

D(AMASS) 

D(AREAl) 

D(AREA2) 

D(ASAC) 

D(ASAV) 

ASA1C 

ASA2D 

AS  CP 

AS  DP 

D(ASFV) 

ASIGN 

B1,B2,B3 

B4,B5,B6 

CC 

CCV 


Description 

Dummy  computational  array 
Dummy  variable 

Cross  sectional  area  actuator  volume  one 

Cross  sectional  area  actuator  volume  two 

Cross  sectional  area  actuator  wall  around  volume 

Contact  area  between  the  valve  and  the  actuator  walls 

Cross  sectional  area  actuator  wall  around  volume  two 

Cross  sectional  area  of  the  fluid  in  the  valve 

Cross  sectional  area  of  the  valve  wall  t contacting 
lines 

Mass  of  the  actuator 
Surface  area,  piston  to  volume  one 

Surface  area,  piston  to  volume  two 

Surface  area,  piston  to  actuator 

Surface  area  external  to  valve 

Surface  area  internal  to  actuator  wall  volume  one 
Surface  area  internal  to  actuator  wall  volume  two 
Contact  area,  piston  and  actuator  wall  volume  one 

Contact  area,  piston  and  actuator  wall  volume  two 

Internal  surface  area  of  the  valve 


Dimension 


IN 


2 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


IN- 


LB 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


IN 


Dummy  variable 
B7 

Thermal  conductivity  of  the  actuator  mass  WATTS/IN-°F 

2 

Interface  conductance  between  the  valve  and  '’c.tuator  WATTS/IN  -°F 
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Variable 

Description 

Dimension 

CJ 

Mechanical  equivalent  of  heat 

lN-LBm/WATTS-SEC 

CMASS 

Actuator  mass  around  volume  one 

CP 

Thermal  conductivity  of  the  piston 

WATTS/ IN- °F 

CPCN 

Specific  heat  of  the  actuator  walls 

WATTS-S  EC/LBjj,—  0 F 

CPFN 

Specific  heat  of  the  fluid 

WATTS- SEC/LBm-°F 

CPPN 

Specific  heat  of  the  piston 

WATTS -SEC/LIi,,,  °F 

CPVN 

Specific  heat  of  the  valve  walls 

WATlS-SEC/LBm-°F 

CV 

Thermal  conductivity  of  the  valve  walls 

WATTS/ IN- °F 

D ( DAMP  ) 

Static  seal  friction 

LBf 

DCAPT1 

Temperature  change  do  to  a 'pressure  drop 

°F 

DCAPT2 

Temperature  change  do  to  a pressure  drop 

°F 

ODD 

Dummy  variable 

- 

DELTA1 

Distance  from  inlet  of  valve  to  volume  one  of 
actuator 

IN. 

DELTA  2 

Distance  from  outlet  of  valve  to  volume  two  of 
actuator 

IN. 

DELTA3 

Distance  from  outlet  of  valve  to  volume  one  of 
actuator 

IN. 

DMAS'. 

Actuator  mass  around  volume  two 

LB. 

DXC 

Distance  from  node  of  actuator  volume  one  to 
interface 

IN. 

DXD  ’ 

Distance  from  node  of  actuator  volume  two  to 
interface 

IN. 

DXF 

Distance  from  node  of  fluid  in  valve  to  interface 

IN. 

DXP 

Distance  from  node  of  piston  to  its  interface 

IN. 

DXV 

Distance  from  node  of  valve  walls  to  its  interface 

IN. 

D1,D2 

Variable  to  determine  actuator  node  mass 

- 
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Variable 

Description 

Dimension 

FMASS 

Total  mass  of  fluid  in  valve 

LBm 

FMASS1 

Mass  of  fluid  in  actuator  volume  one 

FMASS 2 

Mass  of  fluid  in  actuator  volume  two 

LBm 

DT( FORCE) 

Load  on  actuator 

LB- 

f 

ITC 

Initial  temperature  of  the  actuator  valve  walls 

°F 

ITF 

Initial  temperature  of  the  fluids 

°F 

KTYPE 

Dummy  variable 

- 

D(MAXST) 

Maximum  stroke 

IN. 

D(MAXL) 

Load  at  max  stroke 

LBf 

D(MINL) 

Load  at  min  stroke 

LB 

f 

D(MTYPE) 

Actuator  material  type 

NTYPE 

Dummy  variable 

- 

D(PERC) 

Percentage  heat  from  pressure  drop  added  to  fluid 

- 

DT(PFORCE) 

Actuator  pressure  drop  or  rise 

PS  I 

P (PHEIGHT) 

Piston  wall  height 

LBm 

D(PMASS) 

Piston  mass 

LBm 

DT(PPl) 

Cylinder  1 pressure 

PSI 

DT (PP2) 

Cylinder  2 pressure 

PSI 

DT(PPIP) 

Dummy  variable 

- 

DT(PP2P) 

Dummy  variable 

- 

D(PTHICK) 

Piston  wall  thickness 

IN. 

D(PTYPE) 

Piston  material  type 

- 

RHOC 

Density  of  the  actuator  material 

LBm/IN.3 

RHOIL 

Density  of  the  fluid 

LBm/IN.3 

RHOP 

Density  of  the  actuator  piston 

LBm/IN.3 
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Va  rial)  le 
RHOV 
RMFL1 
RMFL2 

R1,R2,R3,R4, 

R9,R12,R15 

SHAPF 

SIGMA 

D(SLOTWl) 

D(SL0TW2) 

D(SLOTW3) 

D(SLOTW4) 

D(l'A) 

DT(TCN) 

DT(TDN) 

DT(TFAl) 

OT(TFA2) 

DT(TPN) 

D(TST) 

DT(TVFl) 

DT(TVF2) 

DT(TVN) 

UAC 

D(UAV) 

UA1C 

D(UAIP) 


Description 

Density  of  the  valve  walls 
Mass  flow  rate  into  valve 
Mass  flow  rate  leaving  valve 
Dummy  variables 


Dimensi on 
LBm/IN. 3 
LBm/SF.C 
LBm/SEC 


Shape  factor  walls  to  atmosphere 

Stefan-Botzmann  constant  for  radiation 

Slot  widtl  volume  1 to  con  111 

Slot  width  volume  1 to  con  II 2 

Slot  width  volume  2 to  con  111 

Slot  width  volume  2 to  con  II 2 

Temperature  of  the  surrounding  atmosphere 

Temperature  of  the  actuator  wall  node  surrounding 
volume  one 

Temperature  of  the  actuator  wall  node  surrounding 
volume  two 

Temperature  of  the  actuator  fluid  node  in  volume  one 

Temperature  of  the  actuator  fluid  node  in  volume  two 

Temperature  of  the  piston  node 

Temperature  of  the  surrounding  structure 

Temperature  of  the  fluid  node  in  valve  volume  one 

Temperature  of  the  fluid  node  in  valve  volume  two 

Temperature  of  the  valve  wall  node 

Heat  transfer  coefficient  actuator  walls  to 
atmosphere 

Heat  transfer  coefficient  valve  walls  to  atmosphere 

Heat  transfer  coefficient  actuator  fluid  to  wails, 
volume  one 

Heat  transfer  coefficient  actuator  fluid  to  piston 


WAITS/  IM2-0];/' 
IN. 


IN. 


IN. 


IN. 


°F 


O 


F 


O 


F 


Op 


O 


F 


O 


F 


O 


F 


°F 


°F 


° F 

WATTS/ *N2-°F 

WATTS/ IN2-°F 
WATTS/ IN2-* F 

watts/in2-°f 
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Variable 


Dimension 


UA2D 

UA2P 

UFWIL 

DT(VEL) 

DT(VELO) 

D(VMASS) 

D(V0LUME2) 

DT(VOLl) 

DT(V0L2) 

D(V0L3) 

D(VTYPE) 

DT(X) 

XV 


Description 

Heat  transfer  coefficient  actuator  fluid  2 
to  walls , volume  two 

Heat  transfer  coefficient  actuator  fluid  1 to 
piston 

Heat  transfer  coefficient  actuator  fluid  in 
valve  to  valve 

Actuator  Velocity 

Old  actuator  velocity 

Valve  wall  mass 

Total  cylinder  volume  of  actuator 
Volume  1 
Volume  2 
Valve  volume 

Material  type  of  the  valve 
Piston  position 
Valve  position 


WATTS /IN2 

WATTS /IN2 

WATTS /IN2 

IN/ SEC 
IN/SEC 
LEm 


IN. 


3 


IN. 


IN. 


-°F 


°F 


-°  F 
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6. It)]. 7 Subroutine  Listing 


C 


C\> 

VJ 


! 


c 

i 


I — 


c 

c 


c 

c 

c 

r* 

c 

r 

C 

C 

C 

C 

C 

C 

C 

C 

C 


SUBROUTINE  TACT  1 0 1 ( D,  OT,  DD,  L) 

***RLVISED  JUNE  10  7 6 **** 

DIMENSION  D(  1)  ,DT(  1)  , DD{  1)  , L(  1) 

COMMON  /TRANS/ P(  300)  , Q(  300)  ,C(  300)  ,TC(  300)  ,TW(  300)  ,TF(  300)  , 
+ ACF(  300)  , ACW  ( 300)  ,DXF(  300)  , TIME,  OELT,  PI , NLINE,  NEL 
COMMON  /COUP/LTYPE(  99)  ,NC( 99)  , KTLHP(99)  , IND,  IhHTR,  I NEL 
COMMON  /STbADY/PN(90)  ,QN(90)  , PLX(90)  ,PDLEG(90)  ,QL(90)  , 

+ QA,9S,01,  PUP,  PDOwN , NNODE , NLEG , NCPN , TERl-i  , L1LGN , ICON , INV, 

+ INX,  INZ  ,NUP(  90)  ,NDWN(  90)  , NELLM  (90)  , I LEGAD(  90)  , I LEG(  1000) 
COMMON  /FLUI  O/ATPPbS , CF  , C PFN , FTRMP,  PROP(  13,3) 

Dl.-iJiNS ION  A ( 8 , 8 ) ,0(8) 

INTffcbR  ARLA1 , ARLA2 , VOL1 , VOL2 , SLOTWl , SLOTW2 

1 , S LOTW 3 , S LOW 4 , DAMP,  X,  PFORCb,  FORCb,  PPlP,  PP2P 

2,  PP1,  PP2,  A.-iASS,  VLL,  VLLO,  ASAV,  ASAC,  UAV,TA,TST 


4,  PTH  ICK , PUL  I GUT , CCV,  ACCV,  SARLA , VOLUME  2 , VMASS 

5 ,  TFA1 , TFA2 , TVN , TCN , TDM , TPN , ASFV, VOL3 , DELTA  1 , DELTA  2 , DELTA  3 
6 , PTY PL , VTY PE , TVF 1 , TVF  2 , UA 1 P 

D ARRAY  VARIABLES 

DATA  ARcAl/6/  , ARLA  2/7/  , VMASS/  5/  , .4 INST/  28/  , MAXST/  29/  , 

1 DA. . P/ 3 2/  , SARLA/  1 8/  , S LOTW 1/ 3 3/  , S LOTw  2/ 3 4/  , S LOTW  3/ 3 5/  , S LOTw  4/ 3 6/  , 

2 A I N L/  3 0/  , .-.A  XL/  3 1/  , I N POS/  2 7/  , MTYPL/ 1/  , VTY  PE/  3/  , PTY  PE/  2/  , 

3 A . 1 A S S/  4 / , D L LT A 1/  9 / , D E LT A 2/ 1 0/  , 

4 PTH ICK/ 1 2/ , FREIGHT/ 1 3/ , DELTA 3/ 1 1/ , A3 AC/ 1 4/ , 

5 ACCV/ 1 5/ , ASAV/ 1 6/ , AS F V/ 1 7/ , UA V/ 2 1/ , CCV/ 1 9/ , PL RC/ 2 6/ , 

6 TST/  2 2/  , TV  2 3/  , ITF/  2 4/ , ITC/  2 5/ , UA1P/20/  , VOL  3/  8/  , VOLUi'iE  2/  3 7/ 

L ARRAY  VARIABLES 

DATA  NTAS/3/ , IY/4/ , NODE/ 9/ 

OT  ARRAY  VARIABLES 

DATA  X/ 1/ , VE L/ 2/ , LOADZ/ 3/ , LOADS/ 4/ , PP1/ 5/ , PP2/ 6/ , 

1 VOLl/7/ , VOL2/3/ , VL  LO/ 9/ , NC AV/1 0/ , PPl ?/l 1/ , PP2P/ 1 2/ , 

2 PFOFCL/13/, FORCE/ 1 4/, LOADEX/15/ 

3 ’’’F  Al/ 1 6/  , TF  A2/1  7/  , TVN/ 1 3/  , TCN/ 19/,  TDM/  20/  , TPN  / 21/  , TVF  1/2  2/  , 

4 TVF 2/ 2 3/ 

DATA  SIGH  A/.  349  E-l  1/ , SflAPF/ . 9 6/ , EPS  ION/0 . 3/  , CJ/R . 8 5/ 


:-iTYPb  IS  THE  MATERIAL  TYPE  OF  THE  ACTUATOR 
VOL 3 IS  THE  VOLUME  IN  THE  VALVE 

D( SARLA)  -TOTAL  SURFACE  AREA  OF  BOTH  FLUIDS  TO  ACTUATOR ( VOL1+VOL2 ) 


>(  RiiOV) 


* * * 


D( ASAC) 

D( ASAV) 

D( ACCV) 

D(ASAC) 

D(ASAV) 

D( VTY  PE ) 

Q(  DLLTAl ) 

D( DELTA  2) 

D ( O b LTA  3 ) =D I STANCE  F RO.-> 
FROM  CONNECTION  2 TO 
IF(IbMTR)  1000,2000,3000 
1000  SECTION 


ACTUATOR  & THE  AM3IENT 
VALVE  & THL  AMBIENT 
C + D & B 


IS  THE  SURFACE  AREA  BETwbLN  THE 
IS  THE  SURFACE  AREA  BETWEEN  THE 
IS  THL  APLA  OF  CONTACT  BETWEEN 
IS  THL  SURFACE  AREA  OF  ACT UA  YOR 
IS  THE  SURFACE  AREA  OF  THE  VALVE 
-VALVE  MATERIAL  TYPE 
= DISTANCE  FROM  CONNECTION  1 TO  VOV1 
= D I STANCE  FRO.-i  CONNECTION  2 TO  VOL2 

CONNECTION  1 TO  VOL2  OR 
VOLl( AVERAGE  OF  BOTH  OF  THESE) 
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6.101.7  (Continued) 

1000  CONTINUE 

D(  VOL 3 ) = D(  VOL 3 ) / 4 . 0 
D(ASFV)=D(ASFV)/4.0 
D{ AS AC ) =D( ASAC ) /2 . 0 
OT( TVN ) =D( ITC) 

DT{ TCN ) =D( ITC) 

D 1*  ( TON ) - D(  ITC) 

DT( TFA1 ) =D( ITF) 

DT( TFA2 ) =D{ ITF) 

DT( TPN ) =D( ITF) 

DT( TVF 1 ) =D( ITF) 

DT( TVF  2 ) = D( ITF) 

L1=L( 1) 

L2=L( 2) 

TF( Ll ) =D( ITF) 

TF( L2)=D( ITF) 

TC ( Ll ) =D( ITC) 

TC ( L 2 ) = D ( ITC) 

D( TST) = ( D( TST) +460. ) **4 
IF( D(UAIP) .EQ.0.0)  D( UAl P) = . 09 
I F ( D( UAV) .10. 0.0)  D( UAV) = . 0069 
I F ( D( UAC) , EQ. 0 . 0 ) D(  UAC ) = . 0069 
C ACTUATOR  PARAMETER  INPUT 

, D ( S LOTW 1 ) = D ( S LOTw 1 ) * 0 . 6 5 

i D ( S LOTW  2 ) = D ( S LOTW  2 ) * 0 . 6 5 

D ( S LOTW  3 ) = D ( S LOTW  3 ) * 0 , 6 5 
D ( S LOTW  4 ) =D(  S LOTW  4 ) * 0 . 6 5 

DT(  LOADS ) = ( D(  UAXL) -D(  rllNL)  ) / ( D{  i-lAXST) -D(  i-lINST)  ) 
DT ( LOADZ  ) =D(  MAXL)  -DT(  LOADS ) *D(  fiAXST) 

DT( FORCE) =DT( LOADZ) +DT( LOADS) *D( I NPOS) 

DT ( LOADEX) =ATPRES*( D(AREA1)-D(  A REA  2 ) ) 

DT( VELO) =0 . 0 
DT ( VE  L) =0 . 0 
DT ( X ) = D ( INPOS) 

L( I Y) = ( L( NTAB ) +7 ) /8 
L( I Y)  = 4 1 + L( I Y) * 8 
L( NODE ) = 1 
XV=D( L( IY) ) 

DT( NCAV) =1.0 

DT( VOL1 ) =D( AREA  1 ) * D{ INPOS ) 

DT(  VOL2 ) = ( D(  i'IAXST)  - D(  INPOS)  ) *D(  AREA 2) 

DT ( PFORCE ) =DT( FORCE ) /D(  AREA  2 ) 

IF ( XV)  60,70,30 

60  DT{ PP1P) =1/ ( ( D(SLOTW2)*XV)**2*2) 

DT( PP2P) =1/ ( ( D( S LOTW 3) * XV) **2*2) 

L(  NODE  ) = 2 

OT( PFORCE) =DT( FORCE)/D( AREAl ) 

GO  TO  90 

70  DT{ NCAV) =0.0 
GO  TO  90 
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6.101.7  (Continued) 

80  DT(  PP1P)  =1/ ( (D(GLOTWl)*XV) **2*2) 

DT( PP2P)  = 1/ ( ( D ( S LOTW  4 ) * X V ) **2*2) 

0 0 RLTURN 
***  2000  SECTION 

THE  STLADY  STATE  SECTION 
2000  CONTINUL 

IF ( ICON.EQ. 2)  GO  TO  2750 
IF( ICON.NL. 1)  GO  TO  2900 
IF( L( NODE ) . EQ. 2)  QS=-QS 
N=NDWN(  I MEL) 

I F ( DT ( NCAV ) . LQ. 0 . 0 ) GO  TO  2550 
IF ( DT( X) .GT. D(OINST) ) GO  TO  2600 
IF(QS.GT.O.O)  GO  TO  2650 
2550  QN ( N ) = 0 . 0 

DT(  P P 1 ? ) = 0 1 * 1 0 E 6 
DT(  PP2P)  =01*101.6 
DT( VEL) =0 . 0 

IF ( L(NODC) .EQ. 1)  GO  TO  2700 
QS=-QS 
GO  TO  2050 

2609  IF(  DT(  X)  . LT.D(.-iAXST)  ) GO  TO  2650 
IF(OS.GT.O.O)  GO  TO  2550 
2650  I F ( L ( NODE ) , EQ. 2)  GO  TO  2800 

QN ( N ) =-DT( NCAV) *Q1* { D( AREA 1 ) -D( AREA2 ) )/D( ARLA1 ) 
DT(VLLO)=DT( VEL) 

OT( VLL)=Q1/D( AREA  1 ) 

2700  DT( PFORCE ) = ( DT( FORCE )- PN ( N )*( D( ARLA1 ) -D( A REA 2 ) ) )/D( AREA 2) 

$ +QS*D(  DAiiP)/D(  AREA 2) 

DT( PPl ) = PN( N) 

DT( PP2 ) = PN ( N ) -DT( PFORCE) 

PUP=PUP-DT(  PP1P)  * RliO( TF(  L(  ICON)  ) , PUP)  *OA*0A*QS 
RETURN 

2750  I F ( DT(  X)  . LL.  D(i-ilNST)  .OR.  OT(X)  .GL.  D(i-.AXST)  )GO  TO  2960 
PUP=PUP-DF( PP2P) * RHO{ TF( L( ICON) ) ,PUP) *QA*0A*QS 
PDLEG(  INEL)  =-DT(  PFORCE) 

PUP=  PUP  + PDLEG( INLL) 

RETURN 
2900  OS=-OS 

QN(N)=-DT(NCAV)*Oi*( D( AREA1 ) - D( AREA2 ) )/D( AREA 2 ) 

DT  ( VE  LO ) - DT  ( VL  L ) 

DT{  VLL)=-01/D{  ARI  A2) 

2850  OT( PFORCE) =(-PN(N) * ( D( A REA 2 ) -D( ARLAl ) )+DT( FORCE) ) / D ( ARLA1 ) 
$ -OS*D(DA.iP)/D(  AREA1) 

DT(  P P 2 ) = PN  ( N ) 

DT ( PPl )=PN(N)-DT( PFORCE) 

PUP=PU P-DT( PPl?) *RHO(TF( L( ICON) ) , PUP) *QA*OA*QS 
RETURN 

2900  wRITt( 6, 1950)  IND, ICON, INEL 

1950  FORi-lAT(  5X,  7HCONP  NO,  I 3,  2011,  HAS  INVALID  CON  NO  ,13, 

1 UH,  IN  LEG  NO  , I <5 ) 
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6.101.7  (Continued) 


STOP  2101 
2960  PUP=Q1* 10E6 
TER»i  = PDOWN 
DT( PPl ) = PN ( N ) 

DT(  P P 2 ) = PN  ( CJ ) 

WRITb( 6, 2999) 

2999  FORi1AT(  19X,  28HTHE  ACTUATOR  IS  80TT0.4EI)  01’'' 

RETURN 

C ***  3000  SLOT I ON 

3000  CONTI NUL' 

C IN1TALIZ  ING  Tldi-l  PERATURES 

ITYPL*D(  VTYPD  + . 001 
NTYPb=D( PTYPB)  + .001 
KTYPB=D(  YiTYPb ) + . 00 1 
C P=PROP( NTY  PL , 3 ) 

CW=PROP( ITYPE, 3) 

CC=PROP( KTYPL, 3) 

CV~PROP( KTYPE, 3) 

RUOV=PROP( KTYPE, 2) 

Rl!OC  = PROP(  KTYPE,  2) 

RHOP=PROP( NTYPL, 2) 

CPVN=  PROP( ITYPb , 1) 

CPPN=PROP( NTYPE , 1 ) 

CPC!'l  = PROP(  KTYPC , 1 ) 

P.'1ASS=D(  PTHICK)  * D(  AP.bAl ) * RUOP 

DT ( FORCE ) =DT( LOADZ) +DT( LOADS) *DT( X) 

L( NODE ) = 1 
DT( NCAV) =1,0 

DT(  PFCRCE ) =DT( FORCE ) /D( AREA2 ) 

CALL  I NT E RP ( T IN E , 0 ( 41)  f D(  L(  I Y)  ) ,10,L(NTAB)  ,XV,IbRR) 
IF(ABS( XV ),LL. 0.901) XV=0. 0 
IF(XV)  3060,3079,3080 
3060  DT( PPl?)  = 1/ ( ( D ( S LOT W 2)*XV)**2*2) 

DT( PP2P)=l/( ( D( SLOTW3) *XV) **2*2) 

L( NODE ) = 2 

DT ( PFC-RCE ) = DT(  FORCE ) /D(  AREA1 ) 

GO  TO  3090 
3070  DT( NCAV) =0.0 
DT( VLL) =0 . 0 
GO  TO  3090 

3080  DT(  PPlP)  = l/(  ( D ( S LOTW  1)*XV)**?.*2) 

DT( PP2P) =1/ ( ( D(SLOTWI) *XV) **2*2) 

3090  XO=DT( X) 

DT ( X ) = DT ( X ) + ( DT ( VEL) +DT( VELO) ) * DLLT/ 2 . 

CALL  XLIrtIT(DT(X)  , Dl’(  VEL)  , A3TGN , D(  i-iINST)  , D(F.AXST)  ) 

1F(  DT( VEL) . EQ. 0 . 0 ) GO  TO  3099 

DT  ( VO  L 1 ) = DT  ( VO  L 1 ) + ( DT  ( X ) - XO ) *D(  ''iRCAl) 

DT ( VO  L 2 ) = DT ( VO  L 2 ) - ( DT ( X) -XO) *D( AREA2) 

3099  CONTINUE 
L2=L(  2) 


6.101-25 


6.101.7  (Continued) 

Ll  = L( 1) 

DO  3001  1=1,8 
DO  3001  .7  = 1,8 
A ( I , J ) = 0 . 0 
3001  3( I )=0. 0 

RHOIL=386. 4*RI10(TF(  LI)  , P(  LI)  ) 

D 1 = DT  ( VO  L 1 ) / ( DT  ( VO  L 2 ) + DT  ( VO  L 1 ) ) 

D2=D1*DT( VOL2)/DT( VOL1) 

DXP=D( PUL I GUT) /4 . 0 
DXV=D( DELTA 1 )/2. 

DXC  = DT( VOL1 )/( 2 . x D( ARLAl ) ) 

DXD=DT( VOL2 ) / ( 2.*D( ARLAl) ) 

C INITIALIZING  CONtiON  FACTORS 

i?.'IASS=U(  VOL3 ) * RliOI  L/  2 . 

Ci‘iAS3=D(  AOASS ) *D1 

D.-1ASS=D(  AuASS) *D2 

F.-1ASS  1 =DT ( VO L 1 ) * RUOI L 

FMASS2=DT(  VOL2 ) * Rt!OI  L 

ASC P=D(  PT-IICK)  *(  D(  ARLAl  )/D(  PHLIGHT)  ) 

ASDP=ASCP 
ASA1C=D( SARLA) *Dl 
A3A2D=D( SARLA) *D2 
ACAl=DT( VOLl ) / D( PHLIGUT) 

ACA2=DT( VOL2)/D( PHLIGUT) 

C ACC  AND  ACD  ARE  JUST  ESTIMATES  OF  CROSS  SECTIONAL  AREAS 

ACC=DT( VOLl ) /D( PHLIGHT) 

ACD=DT( VOL2)/D( PHLIGHT) 

ACV=D(  VilASS)  / ( RHOV*u(  DELTA1 ) ) 

ACFV=D( VOL3)/( 2. *D( DLLTA1 ) ) 

AAA=D(  VOL3  ) / ( D(  DLLTM)  *2. ) 

D00=3?RT(AAA*4./PI) 

C LSTI.-iATLS  CF  HEAT  TRANSFER  COEFFICIENTS 

UF*IL=UFW( AAA, ODD, Q( LI) ,TF( Ll) ,P( LI) ) 

UA2P=D( UA1P) 

'JA1C  = D(  UA1P) 

UA2D=D( UA1P) 

UAC=D( UA7) 

A2=D( UAV) *D( ASAV) 

R.*iFLl=ABS  ( Q(  Ll)  )XRH01L 

Cl ?1 =S  IG;-1A*SHAPF*  b PS  ION*  D( ASA V) 

Cl  P2=SIO.-iA*EPSION*SIIAPF*D(  ASAC) 

31=UAC*D( ASAC) *D1 
32=B1*D2/Ql 
33=UA1C* ASA1C 
8 4 = UA  2D*  ASA  2D 
RS  = D( UA1?) *D( ARLAl) 

36=UA2P*D( AREA2 ) 

B7=UFWI L*D( ASFV)/2. 

Rl  = l.  0/(  DXF(  Ll)/( ACW(  Ll ) *C(  Ll ) ) +DXV/  ( ACV*CV)  ) 

R2=l . 0/ ( DXF(  L 2 ) / ( ACW ( L2) *C( L2) ) +DXV/ ( ACV*C V) ) 
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R3=l . 0/( DXV/ ( ACV*CV) +DXC/ ( ACC*CC )+!./( D( ACCV) *Dl*D( CCV) ) ) 
R4=l. 0/(DXV/( ACV*CV)+DXD/(ACD*CC)+l./( D( ACCV) *D2*D(CCV) ) ) 
R5=CC/( DXD/ACD+DXC/ACC) 

R9=l. 0/( DXP/ ( ASCP*CP) +DXC/ ( ACC*CC ) ) 

R1 2=1 . 0/( DXP/( ASCP*CP) +DXD/( ACD*CC) ) 

R15=CF/( DXF( Ll)/ACF(Ll)+DXV/ACFV+RMFLl*DELr 
+ /( ACFV**2*RHOIL) ) 

IF(XV.bQ.O.O)  R<-iFLl  = 0 . 0 
R.iFL2=ABS ( 0 ( L 2 ) )*RHOIL 
IF  ( XV.  bQ.  0. 0)  R/iFL2=0 . 0 
RHOIL=386. 4*RHO( DT(TVFl) , P( LI) ) 

IF(XV.GT.O.O)  GO  TO  3030 
DC  A PT 1 = 0 . 0 
DCAPT2=0. 0 

IF(XV.EQ.O.O)  GO  TO  3066 

DC  A PT 1 = ( l./RHOIL) *( P( L1)-DT( PP2 ) )/( CJ*CPFN* 2. ) 

DCAPT2=( l./RHOIL) *(DT( PP1)-P( L2) ) / ( CJ*CPFN* 2 . ) 

A(  5,5)  = R.iFLl*CPFN 
A(  5, 1)=-RMFL1*CPFN 
A(  2,4)=- Rrt F L 2 * C PF N 
b{  5 ) = R.IFL1*CPFN*  DCAPT1 
GO  TO  3066 

3030  DC APT 1 = 1 ,/RHOI L* ( P( Ll)-DT(PPl) ) / ( C J*CPFN* 2 . ) 

DC APT 2=1 ,/RHOIL* ( DT( PP2)-P( L2) )/ ( CJ*CPFN* 2. ) 

A(  2,5)  =-R.lFL2*CPFN 
A(  4,4)  =RilFLl*CPFN 
A ( 4 , 1 ) =-RtlFLl*CPFN 
B(  4 ) = RrlFLl*CPFN*DCAPTl 
3066  CONTINUE 

A ( 1 , 1 ) =FMASS*CPFN/DE'LT+37+R15+RMFLl*CPFN 

B(  1 ) =F.4ASS*CPFN*  DT(  TVF 1 ) / DELT+RMFL1  *CPFN*  ( TF  ( Ll)+DCAPTl)  + 

+ R15*TF( LI) 

A( 1,3)=-B7 

A(  2,  2)=F.4ASS*CPFN/DELT+37+RHFL2*CPFN 

3(  2 ) = F.4AS3*CPFN*  DT(  TVF  2)  /DELT+RtiFL2*CPFN*DCAPT2*  2 . 

A( 2, 3)=-B7 
A( 3,1) =-37 
A( 3, 2) =-37 

A(  3,  3)=D(  VMASS) *CPVN/DELT+R1  + R2+A2+2.*B7 

3(  3)  = D(  V.4ASS)  *CPVN*DT(  TVN  ) /DLLT+R1*TW{  LI ) +R2*TW  ( L2  ) *A2* D ( TA ) 
+ +CT  Pl*D(TST)-CI Pi* ( DT(TVN) +460. ) **4 
A( 3,6) =-R3 
A( 3,7) =-R4 

A(  4,  4)=FHASSl*CPFN/DELT+A(4,4)+B3+B5 
A( 4,6) =-33 
A( 4 , 8 ) =-35 

3(  4 ) =Fi'!ASS  1*CPFN*DT (TFA1 ) / DELT+B (4 ) 

A(  5,5)  =FriASS2*CPFN/DELT+3  4 + Q6+A(  5,5) 

A( 5, 7 )=~34 
A( 5, 8)=-36 
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3 ( 5 ) = F.'iASS2*CPFNJr  DT(  TFA2)/DELT+3(  5) 

M 6, 3 ) = - R 3 
A ( 6 , 4 ) = - 3 3 

A(  6,6)  =CMASS*CPCN/Dl£LT+R3+3  3+R5+31+R9 
A( 6, 7)=-R5 
A( 6, 8)=-R9 

3(  6 ) =Ct>lASS*CPCN*DT(  TCN ) /DLLT+31*  D(  TA)  +CIP2*Dl*D(  TST) 
+ -C I P2*  01  * ( DT( TCN ) +4  6 0 . ) * * 4 
A ( 7 , 3 ) = - R 4 
•\(  7, 5)  =-34 
\(  7,6)  =-R5 

A(  7 , 7 ) =D.lASS*CPCN/DELT+R5+34+R4+R.l 2+32 
A ( 7 , 8 ) = - R ] 2 

3(7)  = D.4ASS*CPCN*DT(  TDN  )/DLLT+32*D(  TA)  +CI  P2*D2*D(  TST  ) 
+ -CIP2*D2*(DT(TDN)4 460. ) **4 
A( 8,4) =-35 
A( 8 i 5 ) =-36 
A ( 8 , 6 ) =-R9 
A( 3,7) = -Ri 2 

A ( 3,8)  = P.4ASS*CPPN/Dt  LT+Rl  2+R9  +3  5+36 
3(8)  = P.  i AS  S*  C P PN  * DT ( T PN ) /DE  LT 
CALL  Sl:iULT(  A,  3, 9 , IfcRROR) 

TF( L2) =3( 2) 

OT( TVF 1 ) =3 ( 1) 

DT( TVF2 ) = 3( 2) 

DT ( TVN ) =3 ( 3) 

DT( TCN ) =B( 6) 

DT( TON ) =3 ( 7 ) 

DT(  I’PN)=3(  8) 

DT( TFA1 ) =3( 4 ) 

DT( TFA2 ) =3 ( 5 ) 

TC  ( L 1 ) = B ( 3) 

TC  ( 1.2 ) =3  ( 3) 

RETURN 

END 
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6 . 102  SUBROUTINE  ACT 102 

ACT102  simulates  a basic  utility  actuator  shown  in  Figure  6.102-1. 
The  subroutine  allows  the  input  of  piston  rod  loads  at  zero  and  maximum 
stroke.  Straight  line  interpolation  is  used  between  these  two  loads. 

The  subroutine  calculates  the  actuator  and  piston  wall  temperatures, 
and  actuator  fluid  temperatures  in  Volume  1 and  Volume  2. 


FIGURE  6.102-1 

TYPE  NO.  102  UTILITY  ACTUATOR 
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6.102.1  Mach  Model 


The  thermal  math  model  for  the  actuator  includes  heat  transfer  to  and 
from  two  connecting  line  segments,  one  upstream  and  one  downstream.  Nine 
nodes  are  considered:  four  fluid  nodes,  four  wall  nodes,  and  one  piston 

node  (as  shown  in  Figure  6.102-2). 


FIGURE  6.102-2 

ACTUATOR  AND  CONNECTOR  NODE  REPRESENTATION 

OP77-ooess 


The  temperatures  of  the  upstream  line  segment,  wall  and  fluid  nodes 
are  denoted  by  TW(Ll),  TF(L1),  the  temperatures  of  the  actuator  'wall  and 
fluid  nodes  are  DT(TCN),  DT(TDN),  I)T(TFAl) , DT(TFA2) , and  the  temperature 
of  the  piston  node  is  denoted  by  DT('IT’N).  The  downstream  line  seg-.ent  wall 
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and  fluid  node  temperatures  are  TW(L2)  and  TF(L2) . This  identifies 
piston  travel  from  lefr  to  right.  Note  that  the  piston  can  also 
travel  from  right  to  left. 

Then  LI  and  L2  would  be  reversed  and  the  discussion  to  follow  would 
require  reversing  nomenclature. 

Five  heat  balance  equations  are  written  to  solve  for  the  five 
actuator  temperatures  just  stated,  using  the  actuator  and  line  material 
properties  and  dimensions,  the  atmospheric  and  structure  temperatures 
external  to  the  actuator,  and  the  temperatures  of  the  line  segment  nodes, 

TW(L1) , TF(L1),  and  TW(L2) . (Note:  TF(L2)  = DT(TFA2) , see  assumptions). 

The  first  equation  represents  four  modes  of  heat  transfer  relative  to 
the  actuator  fluid  node  in  volume  one  (entrance  volume). 

1.  Heat  transfer  due  to  mass  transfer  into  the  actuator  from  the 
upstream  line  segment 

mCp* (TF(L1)  - DT(lFAl)) 

where  mCp  is  the  volume  flow  rate  coefficient  and  is  equal  to 
Q(Ll ) * RH01L  * CPFN . 

2.  Conduction  to  and  from  the  upstream  line  segment  fluid  node 

Rl  * (TF (LI)  - DT(TFAl) ) 

where  Rl  is  the  conduction  coefficient  and  is  equal  to  CF/ (DXF(Ll) / 

ACF(Ll)  + DXA1/ACA1  + ABS(Q(L1)  * RH01L*DELT/(ACF(L2)**2*RH0IL) . 

3a.  Convection  to  and  from  the  actuator  wall  node 

B3  * (DT(TCN)  - DT(TFAl) ) 

where  B3  is  a convection  coefficient  equal  to  UA1C  * ASA1C. 

3b.  Convection  to  and  from  the  piston  node 

B5  * (DT(TPN)  - DT(TFAl) ) 

where  B5  is  the  convection  coefficient  and  is  equal  to 
D(UA1P)  * ASA1P 
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4.  Heat  addition  due  to  a pressure  drop  experienced  by  the  fluid  as  it 
flows  thru  the  actuator  orifice,  if  the  flow  is  into  volume  one,  the 
heat  added  is 

A1  * DCAPT1 

where  A1  is  equal  to  Q(L1)*RH0IL*CPFN  and  DCAPT1  is  equal  to 
1. 0/RH01L* (P(Ll)-DT(Pl) ) / (CJ*CPFN) . 

These  heat  transfer  terms  are  then  combined  to  produce  the  equation  for 
the  heat  balance  for  the  actuator  volume  one  fluid  node. 

j|£j:  * (DT(TFAl)  - DT(TFA1)0L]))  = MCp  * (TF(Ll)-DT(TFAl))  + Rl* 

(TF (Ll)-DT(TFAl) )+B3*(DT(TCN)-DT(TFAl)  + B5* (DT(TPN)-DT(TFAl) ) 

+ A1*DCAPT1 

The  second  equation  represents  two  modes  of  heat  transfer  relative  to  the 
actuator  fluid  in  volume  two. 

la.  Convection  to  and  from  the  actuator  wall  node 

B4  * (DT(TDN)  - DT(TFA2) ) 

where  B4  is  the  convection  coefficient  for  the  fluid  equal  to 
UA2D  * ASA2D. 

lb.  Convection  to  and  from  the  piston  node 

B6  * (DT(TPN)  - DT(TFA2) ) 

where  again,  B6  is  a convection  coefficient  and  equal  to  UA2P  * ASA2P. 
2.  Heat  added  directly  to  the  fluid  due  to  a pressure  drop  across  an 
actuator  orifice,  (the  exit). 

A2  * DCAPT2 

where  DC APT 2 is  equal  to  1. 0/RHOIL*(DT(P2)-P(L2) ) / (CJ*CPFN)  and  A2  is 
equal  to  RMF  (L1)*CPFN. 
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These  terms  are  then  combined  to  produce  the  equation  for  the  heat  balance 
for  the  actuator  volume  two  fluid  node. 

* (DT(TFA2)  - DT(TFA2)  ) = 154  * (DT(TDN)  - DT  (TFA2 ) ) 

UhiLi  L ULU 

+ 155  * (DT(TPN)  - DT(TFA2))  (2) 

+ A2  * DCAPT2 

The  third  equation  represents  three  modes  of  heat  transfer  relative 
to  the  actuator  wall  surrounding  volume  one. 

la.  Conduction  to  and  from  the  upstream  connecting  line  wall  node 

R2  * (TW (LI)  - DT(TCN) ) 

where  R2  is  the  conduction  coefficient  for  the  walls  equal  to 
1.0/ (DXF(Ll) / (ACW(L1)*C(L1) )+DXC/ (ACC*CC) ) 

lb.  Conduction  to  and  from  the  actuator  wall  node  surrounding  volume  two. 

R8  * (DT(TDN)  - DT(TCN) ) 

where  R8  is  the  conduction  coefficient  equal  to  CC/(DXD/ACD  + 
DXC/ACC) . 

lc.  Conduction  to  and  from  the  piston  node. 

R9  * (DT(TPN)  - DT(TCN)) 

where  R9  is  the  conduction  coefficient  between  the  two  nodes 
equal  to  1.0/(DXP/(CP*ACP)  + DXC/(ACC  * CC)),  where  the  interface 
conductance  between  the  two  nodes  is  infinite. 

2a.  Convection  to  and  from  the  actuator  fluid  node  in  volume  or.e. 

B3  * (DT(TFAl)  - DT(TCN) ) 
and  B3  is  as  defined  previously. 
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2b.  Convection  to  and  from  the  external  atmosphere 
B1  * (D(TA)  - DT(TCN) ) 

where  1U  is  a convection  coefficient  for  the  actuator  wall  equal  to 
D(UAC)  * D(ASAC)  * DV0L1.  DV0L1  is  a coefficient  to  calculate  the 
wall  mass  around  volume  one  equal  to  DT(VOLUMEl)/ (DT(VOLUMEl)  + 

DT( VOLUME 2) ) . 

3.  Radiation  exchange  with  the  surrounding  structure 
1)3  * (D(TST)  - (DT(TCN)  + 460.  )4) 

where  D3  is  a radiation  coefficient  equal  to  SIGMA  * EPSION  * 

SHAPE  * D(ASAC)  * DVOL1 

These  terms  combine  to  produce  the  equation  for  the  heat  balance 

for  the  actuator  wall  node  surrounding  volume  one. 

MCp.  * (DT(TCN)  - I)T(TCN)n  ) = R2* (TW(L1) -DT(TCN) )+R8* (DT (TDN) 
net  t ULU 

U - DT (TCN) )+R9* (DT (TPN)-DT (TCN) )+B3*  (3) 

(D (TA) -DT (TCN) )+D3*U (TST) -D3* 

(DT(TCN)+460. )**4 

where  MCp  is  equal  to  CMASS  * CPCN  and  CMASS  is  equal  to  D(AMASS)  * DV0L1 . 

The  fourth  equation  represents  three  modes  of  heat  transfer 
the  actuator  wall  surrounding  volume  two. 

la.  Conduction  to  and  from  the  downstream  line  segment  wall  node. 

R3  * (TW(L2)  - DT(TDN)) 

where  R3  is  a conduction  coefficient  equal  to  1 . 0/ (DXF(L2) / 
(C(L2)*ACW(L2) ) + DXD/ (ACD  * CD)). 

lb.  Conduction  to  and  from  the  actuator  wall  node  surrounding  volume  one. 

R8  * (DT(TCN)  - DT(TDN) ) 
wit'.:  R8  defined  previously. 
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lc.  Conduction  to  and  from  the  piston  node. 

RJ  2 * (DT(TDN)  - DT(TDN)) 

where  R12  is  a conduction  coefficient  equal  to  l.O/(DXP/(ACP*CP)  + 
DXD/ (ACD  * CD))  with  the  interface  conductance  being  infinite. 

2a.  Convection  with  the  actuator  fluid  node  in  volume  two. 

BA  * (DT(TFA2)  - DT(TDM) ) 

where  DA  is  the  convection  coefficient  between  the  two  nodes  equal 
to  UA2D  * ASA2D. 

2b.  Convection  to  and  from  the  external  atmosphere 
B2  * (D(TA)  - DT (TON) ) 

where  B2.  is  the  convection  coefficient  equal  to  B1  * DV0L2/DV0L1 
with  the  terms  defined  previously  and  DV0L2  is  a coefficient  to 
calculate  the  wall  mass  around  volume  two,  equal  to  DT(V0LUME2)/ 
(DT(VOLUMEl)  + DT( VOLUME 2) ) . 

3.  Radiation  exchange  with  the  surrounding  structure. 

DA  *(D(TST)  - (DT(TDN)  + A60./') 

where  DA  is  a radiation  coefficient,  equal  to  D3*DVOL2/DVOLl,  with 
these  terms  defined  previously. 

These  terms  then  combine  to  produce  the  equation  for  the  heat  Balance 
for  the  actuator  wall  node  surrounding  yolume  2. 


^^(DT(TDN)-DT(TDN)..  )=R3*(TW(L2)-DT(TDN)  )+R8*(DT(TCN)-DT(TDN) ) 

1 ULL/ 


+BA*(DT(TFA2)-DT(TDN) )+B2*(D(TA) 

-DT (TDN) ) +DA*D (TST)-DA * ( DT (TDN) +A  60 . ) 


(M 


>v*4 


where  MCp  is  equal  to  DMASS*CPDN  and  DMASS  is  equal  to  D (AMASS)*  DV0L2. 

The  fifth  equation  represents  two  modes  of  heat  transfer  to  and 
from  the  piston  node. 
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1.  induction  to  and  from  the  two  actuator  wall  nodes,  one  and  two 
respectively . 

a.  R9  * (DT(TCN)  - DT(TPN) ) and 

b.  R1 2 * ( DT  (TDN ) - »T(!’DN)) 

where  R9  and  R12  are  the  same  as  defined  previously. 

2.  Convection  to  and  from  the  two  actuator  fluid  nodes,  one  and  two 
respect i vely . 

a.  R5  * (DT(TFAl)  - DT(TDN) ) and 

b.  B6  * (DT (TFA2 ) - DT(TDN)) 

and  155  and  B6  are  the  same  as  defined  previously. 

These  terms  then  combine  to  uroduce  the  equation  for  the  neat 
balance  for  the  actuator  piston  node 

|~j~;  * (DT(TDN)-DT(TDN)old)  = R9  * (DT(TCN)-DT(TDN)+R12* 

(DT(TDN)-DT(TPN) )+B5*(DT(TFAl)  (5) 

- DT  ( TDN) ) 4 -3  6*  ( DT  (TFA2 ) - DT  (TDN) ) 
where  MCp  is  equal  to  PMASS  * CPPN. 

A thermal  model  of  the  above  heat  transfer  terms  for  the  Actuator  is 

shown  in  Figure  6.102-3.  Equations  (1)  thru  (5)  are  solved  for  the 

appropriate  temperatures. 
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In  this  hydraulic  math  monel,  the  external  force  due  to  atmospheric 
pressure  is 

ATRESS* (D(ARKAl)-D(AREA2) ) 

This  value  is  subsequently  used  as  part  of  the  actuator  load  for  any 
pi  tt on  posit  ion . 

total  actuator  load 

DT  (LOADc'X)  = i)T ( LOADZ ) + DT (LOADS) *DT(X)  + (D(AREAl)  - D(AREA2) ) 
*ATPRESS 

A sign  convention  is  estal  lished  su'’1’  that  flow  into  the  Volume  1 
chamber  and  resulting  p ;ton  velocity  are  positive. 

A system  node,  N,  is  otablished  ir  the  Volume  1 end  of  the  actuator. 

The  simple  unbalanced  actu.  tor  represents  a flow  and  pressure  discon- 
tinuity. In  this  case,  the  flow  out  of  t!i  actuator  is  proportional  to  the 
flow  in,  but  does  not  equal  it.  The  pseudc  >verboard  flow  is  the  difference 
between  the  inle.'  and  outlet  flow:  . This  flow  is  added  or  subtracted  to  the 
flow  at  the  pressure  node  depending  on  the  dire  tion  of  motion  of  the  piston. 
The  associated  pressure  gradient  is  appl'ed  to  the  leg  connected  downstream  of 
the  actuator. 

Overboard  flow  at  the  actuator  node  i > calculated  using  the  piston  area 
ratio  times  the  inlet  actuator  flow 

ON(N)  = (- 1 . ) *QA*OS*(D(AREA] )-D(AREA2) ) /D(AREAl) 

The  pressure  gain  or  loss  across  the  piston  is  calculated  using  the 
force  balance  equation 

DT(DELTP)  = LS* (PN(ii) *(i)(AREAl)  - D(AREA2) ) - DT(LOADE.i)  - QS* 

D ( DAMP ) ) / D ( AREA2 ) 
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6.102.2  Assumptions 


1.  The  temperature  of  the  fluid  leaving  the  actuator  is  equal 
to  the  fluid  node  temperature  calculated,  DT(TFA2). 

2.  Each  entire  actuator  wall  is  at  the  same  temperature. 

3.  The  interface  conductance  between  the  actuator  walls  and  the 
line  walls  is  infinite. 

A.  The  emisslvity  of  the  wall  materials  is  a constant. 

5.  The  atmospheric  and  structure  temperatures  remain  constant. 

6.  Complete  fluid  mixing  occur  in  the  fluid  volume. 

6.102.3  Computational  Methods 

SECTION  1000 

The  fluid  and  wall  temperatures  are  Initialized,  the  external  structure 
temperature  is  changed  from  degrees  Fatenheit  to  Rankine  and  raised  to  the 
fourth  power,  and  the  default  values  are  assigned. 

SECTION  2000  - The  entry  first  determines  whether  connection  No.  1 is  attached 
to  an  upstream  or  downstream  line.  This  establishes  the  actuator  steady  state 
mode  of  operation.  If  entry  is  made  using  connection  No.  2,  leg  pressure 
gain  (or  loss)  and  leg  laminar  constant  are  updated.  Pressure  at  connection 
No.  2 is  also  calculated  and  stored.  If  entry  is  made  using  connection  No.  1, 
tests  are  performed  to  verify  that  the  piston  is  free  to  move  as  prescribed  by 
the  flow  guess. 

If  the  piston  is  on  a stop  and  the  flow  guess  is  such  that  motion  would 
be  into  the  stop,  the  node  overboard  flow  is  set  to  zero  and  DT(DELTP) 
is  set  to  a veiy  large  number. 

If  the  piston  is  free  to  move,  the  overboard  flow,  piston  velocity,  AP 
across  piston  and  pressure  at  connection  No.  2 are  calculated. 
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SECTION  3000 

The  position  of  tlie  actuator  piston  is  computed  via  a simple  integration 
I)T  (X)  = I)T (X)  4-  (DT(VEL)  + I)T(VELO) ) * DELT/2. 

The  cylinder  volumes  are  easily  calculated  as 

D”'(V0L1)  = DT(VOLl)  + (DT(X)-X0)*D(AREA1) 

DT(V0L2)  * DT( »OL2)-(DT(X)-XO)*D(AREA2) 
i ropertv  values  are  assigned.  Dimensions  and  coefficients  are 
call 'listed.  The  flow  direction  is  determined.  (The  program  is  set  up  with 
the  flow  entering  connection  line  one  (LI)  and  leaving  thru  connection  line  two 
(L2).  During  the  calculation  the  flow  direction  is  checked.  If  the  flow 
has  reversed  flow  direction,  the  program  reassigns  connection  numbers  so 
that  the  flow  still  enters  connection  line  one).  Some  coefficients  are  then 
recalculated  if  the  flow  is  reassigned.  A 5x5  matrix  is  loaded  and  the 
mathematical  equations  are  solved  for  DT(TTAl),  DT(TFA2),  DT(TCN) , DT(TDN) 
and  DT(TPN)  and  stored  in  the  B computational  array.  The  calculated  values  are 
assigned  io  their  proper  storage  locations  and  the  boundary  conditions  are 
assigned  to  arra  s (TC  and  TV)  in  common  /TRANS/. 

TC (LI)  = B(3) 

6 . 102 . 4 Approx imat  ions 

(a)  Emissivity  of  the  actuator  is  .3,  which  is  the  emissivity  ol  steel. 

(b)  Areas  and  distances  are  approximated. 

6.102.5  Limitations 
Not  applicable. 
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6.102.6  Variable  Listing 
Variables 


Descri.pt  ion  Dimensions 


A(  ) 

Computational  array 

— 

AC.A1 

Cross  sectional  area  of  fluid  1 

IN.2 

ACA2 

Cross  sectional  area  of  fluid  3 

IN.2 

ACC 

Cross  section;,  aieu  _f  case  1 

IN.2 

ACD 

Cross  sectional  ai  ea  of  case  2 

IN.2 

ACP 

Cross  sectional.  aj  -a  of  t ae  piston 

IN.2 

D(AMASS) 

Actuator  mass 

LB,, 

D(AREAl) 

Volume  1 pi.  ton  are; 

IN.2 

D(AREA2) 

Volume  2 piste  i area 

IN.2 

D (AS AC) 

Surface  area  external  to  actuator 

IN.2 

ASA1C 

Surface  area  fluio  1 t.>  case  1 

IN.2 

ASA1P 

Surface  area  fc^io  1 to  piston 

TN.2 

ASA2D 

Surface  area  fluid  2 to  case  2 

IN.2 

ASA2P 

Surface  area  fluia  2 to  piston 

IN.2 

ASCD 

Contact  area  between  two  actuator  wall  nodes 

IN.2 

AS  CP 

Surface  area  case,  Volume  1 to  piston 

IN.2 

ASDP 

Surface  area  case,  Voluue  2 to  piston 

IN.2 

D(ASEA) 

Total  internal  surface  area,  fluid  to  actuator 

IN . ^ 

A SIGN 

Dummy  variable 

— 

D(ATHICK) 

Actuator  wall  thickness 

IN. 

A1 

Dummy  variable 

— 

A2 

Dummy  variable 

— 

B ( ) 

Computational  array 

— 

BUZ 

Dummy  variable 

— 
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Variables 

Descript:  Lon 

1)  Intensions 

B1,B2,B3,B4,B5,B6 

Dummy  variables 

— 

CC 

Thermal  conductivity  of  the  actuator 
wall  surrounding  volume  one 

WATTS/IN-°F 

CD 

Thermal  conductivity  of  the  actuator  wall 
surrounding  volume  two 

WATTS /TN=°F 

CJ 

Mechanical  equivalent  of  heat 

IN-LBm/ WATTS -SEC 

CMASS 

Node  C mass 

LBm 

CP 

Thermal  conductivity  of  the  piston 

WATTS/ IN. -°F 

CPCN 

Specific  heat  of  the  wall  mass  around 
volume  one 

WATTS -SEC /LBm-0 F 

CPDN 

Specific  heat  of  the  wall  mass  around 
volume  two 

WATTS-SEC/LBm-°F 

CPPN 

Specific  heat  of  the  piston 

WATTS-SEC/LBm-°F 

D (DAMP) 

Dynamic  friction 

LBf 

DCAPT1 

Temperature  change  due  to  pressure  drop 

op 

DCAPT2 

Temperature  change  due  to  rressure  drop 

°F 

D(DELTP) 

Actuator  pressure  drop 

PSI 

O(DIA) 

Piston  rod  diameter 

TN. 

DMASS 

Node  D mass,  around  volume  two 

LBm 

DVOLl 

Dummy  variable 

— 

DV0L2 

Dummy  variable 

— 

DXA1 

Distance,  node  to  interface,  Volume  1 
to  Line  1 

IN. 

DXA2 

Distance,  node  to  interface,  Volume  2 to 
Line  2 

IN. 

DXC 

Distance,  node  to  interface,  node  C to 
interface  with  D 

IN. 

DXD 

Distance,  node  to  interface,  node  D to 
interface  with  C 

_N. 

DXP 

Distance,  node  to  interface,  piston  to  case 

IN. 
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Var iables 

Description 

Dimens ; ons 

D3 , 1)4 

Dummy  variables 

— 

EPSION 

Emissivity  factor  of  the  case 

— 

FA1M 

Fluid  in  Volume  1,  mass 

LBm 

FA2M 

Fluid  in  Volume  2,  mass 

LB 

m 

IR,  IS 

Dummy  variables 

— 

D(ITC) 

Initial  temperature  of  the  case 

°F 

D(ITF) 

Initial  temperature  of  the  fluid 

°F 

KTYPE 

Dummy  variable 

— 

DT (LOADS) 

Load/stroke  slope 

LB/ IN 

DT(L0AD7) 

External  load  at  piston  stroke 

LB. 

D(MAXL) 

Load  at  full  stroke 

LB. 

D(MAXST) 

Maximum  actuator  stroke 

IN. 

D(MINST) 

Minimum  actuator  stroke 

IN. 

D(MIN1.) 

Load  at  minimum  stroke 

LB. 

D(MTYPE) 

Actuator  material  type 

— 

NTYPE 

Dummy  variable 

— 

D(PHEIGHT) 

Piston  height 

IN. 

PMASS 

Piston  mass 

LI^n 

D(PTHICK) 

Piston  thickness 

IN. 

D(PTYPE) 

Piston  material  type 

— 

RHOC 

Actual  metal  density 

LB  /IN3 
m 

RHOIL 

Fluid  density 

LBm/lN3 

RHOP 

Piston  metal  density 

LBm/lN3 

RMS 

Fwmmy  variable 

— 

RQ 

Dummy  variable 

— 
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Variable 

Descript:  Ion 

pinions  ions 

R1  ,R2 ,R3 ,R6 ,R12 

Dummy  variables 

— 

SHAPF 

Shape  factor  case  to  structure 

SIGMA 

Stefan-Bol tzmann  radiation  constant 

watts/in3-°f 

D(TA) 

Temperature  of  the  surrounding  ambient 

«F 

DT(TCN) 

Actuator  wall  temperature,  Volume  1 

°F 

I)T(TI)N) 

Actuator  wall  temperature,  Volume  2 

°F 

DT(TFAl) 

Fluid  temperature,  Volume  1 

°F 

rr (tfa2) 

Fluid  temperature,  Volume  2 

°F 

DT(TPN) 

Piston  temperature 

°F 

D(TST) 

Temperature  of  the  surrounding  structure 

°F 

D(UAC) 

Heat  transfer  coefficient  external 
to  e C 

WAFTS /TN2-°F 

UAD 

Heat  transfer  coefficient  nod»  D 
to  atmosphere 

WATTS/ IN2-0 F 

UA1C 

Heat  transfer  coefficient  fluid  1 to 
case  C 

WATTS /IN2- °F 

D(UA1P) 

Heat  transfer  coefficient  fluid  1 to 
piston 

WATTS/ IN2 -°F 

UA2D 

Heat  transfer  coefficient  fluid  2 to 
case  D 

WATTS/ IN2-0 F 

UA2P 

Heat  transfer  coefficient  fluid  2 to 
piston 

WATTS /IN-  F 

DT(VEL) 

Actuator  velocity 

IN/SEC 

DT (VELO) 

'Jld  velocity 

in/sec 

DT(VOLUMEl) 

Actuator  Volume  1 

IN3 

DT (VOLUME2) 

Actuator  Volume  2 

IN3 

D(VOLl) 

Volume  1 (initially) 

IN3 

D(VOL2) 

Volume  2 (initially) 

IN3 

DT  (X) 

Actuator  position 

IN. 

XO 

Old  actuator  position 

% 

common  refer  to  Paragraph  3.3. 

IN. 

For  variables  in 
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6.102.7  Subroutine  Listing 


SUBROUTINE  TACT102  (D,DT,0D,L) 

C ***  REVISED  AUG  1976 

DIMENSION  D{  1 ) , DT(  1)  , DO(  1)  , L(  1 ) 

COM ci ON  /TRANS/P ( 300)  ,?(  300)  ,C(  300)  ,TC(  300)  ,TW(  300)  ,TF(  300)  , 
+ ACF(  300) , ACW  ( 300) ,DXF(  300) , TI.-iL , DLLT , PI , N LI  ML , NLL 
COMMON  /COHP/LTYPE( 99)  ,NC(99)  ,KTEMP(99)  , IND, IENTR. INEL 
COMMON  / STEADY/ PN (90) ,QN(90) ,PCX(90) ,PDLEG(90) ,OL(90) , 

1 OA,  QS,  Ol  , PUP,  PDOWN , NNODb , NLEG , NCPN , TERN , LEGN , ICON , INV , 

2 I MX,  INZ  ,NUP(  90)  ,NDWN(  90)  ,NELEU(  90)  , I LEGAD(  90)  , I LEG  ( 1000) 
COMMON  /FLU I O/ATPWLS , CF , CPFN , FTLM P , PROP( 13,3) 

DIMENSION  R:'.F(  6)  , A(  5,  5)  ,3(  5) 

INTEGER  VOL1 , VOL2 , A SAC , UAC , DI A , PHLIGHT, TA , TST , TCN , TDN , 

1 TPN  , TFA1 , TFA2  , ITC , ITF , PTHICK, AMASS, ATHICK, ASFA, VELO, 

2 AREA1 , AREA 2, Pl,P2, MTYPL , PTYPL , UA1 P, DAnP,X, 

3 2 0 , VE  L , DELTP , VO  LUM  L 1 , VO  LUM  L 2 

C D ARRAY  VARIABLES 

DA  PA  VO  LI/ 1/  , VO  L2/  2/  , ARE  A 1/  3/ , AREA  2/  4/ , MTY  PL/  5/  , P f Y Pl/  6/ 

1 , AMASS/ 7/ , ATH IC  K/ 8/ , ASFA/ 9/ , PH  EIGHT/ 1 0/ , PTHICK/ 1 1/ , DI A/ 1 2/ 

2 , AS AC/ 13/, UAC/ 1 4/ , UA 1 P/ 1 5/ , TST/ 1 6/ , TA/ 1 7/ , ITF/ 1 9/ , I TC/ 1 9/ 

3 , MINST/20/, MAXST/21/, DAMP/22/, MINL/2 3/ , MAXL/2 4/ , I NPOS/ 2 5/ 

C OT  ARRAY  VARIABLES 

DATA  TCN/ 1/ , TON/ 2/ , TPN/ 3/ , TFA 1/ 4/ , TFA 2/ 5/ , Pi/ 6/ , 

1 P2/7/ , X/8/ , VLL/9/ , LOADZ/1 0/ , LOADS/ 1 1/ , ZQ/1 3/ 

2 , LOAD  EX/ 1 2/  , TNl.NT/1  4/  , DELTP/1  5/  , VOLUME  1/16/,  VO  LUM  E 2/ 1 7/ 

3 , VELO/ 18/ 

DATA  SIGMA/.  34  9 E-l  1/ , SI1APF/ . 96/,  EPSICN/.  3/,CJ/8. 85/ 
IF(IENTR)  1000,2000,3000 
ATHICK  =ACTUATOR  WALL  THICKNESS 
AMASS  “ACTUATOR  MASS,  INCLUDING  PISTON 
ASFA  “SURFACE  AREA  FLUID  TO  ACTUATOR,  INSIDE 
DELCS  “DIMENSIONS  OF  THE  RESTRICTOR 
PTHICK  “THICKNESS  OF  THE  PISTON 
DIA  “DIAMETER  OF  THE  PISTON 

UAC  =HEAT  TRANSFER  COEFF.  CASSE  TO  A.iSIENT 
VLL  “VELOCITY  OF  THE  PISTON 

***  1000  SECTION 
1000  CONTINUE 
L1=L( 1 ) 

L2=L( 2 ) 

C INITALIZING  TEMPERATURES 

TC ( Ll ) =D( ITC) 

TC ( L2)=D( ITC) 

TF( Ll ) =D( ITF) 

TF( L2)=D( ITF) 

DT( TCN ) =D( ITC) 

DT( TDN ) =D( ITC) 

DT( TPN ) =D( ITF) 

DT( TFAl ) = D(  ITF) 

DT( TFA2 ) =D( ITF) 

D( TST)  = ( D{ TST)  + 460.  ) **4 
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6.102.7  (Continued) 


KTYPL=D(  ‘1TY PI. ) + . 001 
NTYPL=D( PTYPL)+. 001 
CP=PROP(  NTYPe  , 3 ) 
CC=PROP( KTYPE, 3) 
CPPN  = PROP(  NTYPL  , 1 ) 
CPCN=PROP( KTYPe, 1) 
RllOP=PROP(  NTYPl,  2) 
RI10C  = PR0P(  KTYPP, , 2) 
CD=CC 


CPDN=CPCN 


OT ( 7LL) =0. 0 

IF (D(UA1P) . EQ.0.0)  D(UA1P)=.0063 

IF  (D(UAC).tO.O.O)  D ( UAC ) = . 00 53 

D(  AMASS)  = D(  AMASS ) -D(  ARLA1)  *D(  PTHICK)  *RHOP 

D( AGAC) =D( ASAC)/2. 0 

L(3)=l 

DT(  VOLUMLI ) =0(  VOL1 ) 

DT( VOLUME 2 ) =D( VOL2 ) 

IP(L(  D/2.NL.  (L(  l)  + l)/2)  L ( 3 ) = - 1 
L( 4 ) =-l 

IF ( L(  2)/2.NE.  ( L(  2)+l)/2)  L(  4 ) = 1 
OT(DhLrP)=0. 0 
DT  ( X ) = D ( I 'IPOS) 

D T ( LOADS  ) = ( D(MAXL)-D(.-iI  ML)  )/(  D(  MAXST)  -D(MINST)  ) 

DT ( LOADS ) -D( MAXL) -DT( LOADS) *D( hAXST) 

DT  ( LOA  DEX ) = DY  ( LOA  Db ) * DT  ( X ) +DT  ( LOA  DZ  ) + ( D ( AREA  1 ) - D ( A R L A 2 ) ) 
+ * ATPRLS 


RETURN 

C ***  2000  SECTION 
2 000  CONTINUE 

LS=L( 2+ ICON ) 

N = iJDwN(  I MEL) 

IF(LS.GT.O)  GO  TO  2510 

IF ( I NX. NL. 1 . AND. ICON. LQ. 1 ) GO  TO  2900 

N = N U P ( INLL) 

2511  IF( ICOM.L0. 2)  GO  TO  2350 

I?( DT( X) .GT. D(MINST) ) GO  TO  2600 
I F ( DT ( LOA  DEX ) . Gb . 0 . 0 ) GO  TO  2550 
IF( OS. GT. 0. 9)  Go  TO  2650 
2550  ON(N)=0.0 

DT( LOADLX ) =0 . 0 
DT( VLL) =0.0 
DT( DLLTP) =Q1* 1 0L  6 
GO  I’O  2700 

2600  IF( DT( X) . LT. D( MAXST) ) GO  TO  2650 
IF(DT{ LOADLX). LL. 0.0)  GO  TO  2550 
IF( QS. GT. 0. 0)  GO  TO  2550 
2650  CONTINUE 


DT( VELO)=DT( VLL) 

ON(M )=(-!. )*Q1*(D(AREA1)-D(AREA2) )/D( AREA1 ) 
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non 


6.102.7  (Continued) 


DT( VLL)=01/D(  AREAl) 

DT(DELTP)=(  PN(N)  *{  D(  AREAl )-D(  AREA2)  ) -DT(  LOADEX ) - 
+ QS*D( DAMP) )/D( ARLA2 ) 

2700  DT ( P 1 ) = PN { N ) 

DT( P2 ) =PN( N ) +DT( DELTP) 

RETURN 

2350  IP(INX.EO. l.AHD.LS.EQ.-l)  GO  TO  2900 

IF(  DT( X ) . GE. D( NAXST) . OR. DT( X ) . LE. D( NINST) ) GO  TO  2950 
PDLEG( INEL) =DT( DELTP) *LS 
PUP=PUP+DT(  DLLTP)  *LS 
RETURN 

2950  PUP=+Q1* 1 0L6 
TLR.-l  = PDOWN 
DT/ P2)=PN(N) 

RETURN 
2900  STOP 

3000  CONTINUE 

KTY PL=D(  NTY  PE ) + . 00 1 
NTY  PD  = D( PTYPE)  + . 001 
CP=PROP( NTYPb , 3 ) 

CC=PROP( KTY PE , 3) 

CPPN=PROP(NTYPE, 1) 

CPCN=  PROP( KTY PC, 1 ) 

RilOP=PROP(  NTY  PE,  2) 

RUOC=PROP ( KTY PE, 2) 

CD=CC 
CPDN=C  PCN 

DT( LOADEX) =DT( LOADS ) * DT( X ) +DT( LOADZ)+(D( AREAl ) -D( AREA 2 ) ) 

+ * ATPRES 

DT  ( X ) = DT ( X ) + ( DT ( VL L ) + DT ( Vli  LO ) )*DELT/2. 

CALL  XLIHIT ( DT(  X ) , DT  ( Vb  L ) , ASIGM  , D(  i-lINST)  ,D(NAXST)  ) 

IF( DT( VEL) , EQ. 0.0)  GO  TO  3001 

DT( VOLUNE1 ) =DT(  VOLUME  1 ) + DT(  X)  *D(  AREAl ) 

DT  ( VO LU.'i E 2 ) = DT ( VOLUME  2 ) -DT(  X ) * D(  AREA2  ) 

3001  L2=L( 2 ) 

L1=L( 1) 

RHOIL=3R6. 4*RHO(TF(  Ll)  , P(L1)  ) 

DXA1=D( PH FIGHT) /I . 33 
OXA2-DXA1 

DXP=D( PHEIGHT)/ 4.0 
A3A2P=D( AREA2) 

ASA1P=D( AREAl ) 

ASC  P=D{  PT1IICK)  * ( D ( AREAl  )/D(  PHEIGHT)  ) 

ASDP=ASCP 

ACF( Ll)=CROSS  SECTIONAL  AREA  3LTWEEN  FLUID  A1&L1 
ACC& AC D= ESTIMATES  OF  CROSS  SECTIONAL  AREAS,  ALSO 
CONTACT  AREA  BETWEEN  C&D 

3003  3UZ  = ( D(  AMASS )/PHOC  )/(  D(  AREAl  )/DT(  VOLUHE1 ) + D(  AREA2  )/DT(  VOLUME 2 ) ) 
AC C=BUZ 
AC':=BUZ 
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6.102.7  (Continued) 


U\2P=D( UA1P) 

UA 1C=D( UA1P) 

UA  20=D( UA1P) 

UAD=D{ UAC ) 

DVOLl=DT(  VOLIJUEl )/(  DT(  VOLU.1E1 ) +DT(  VOLUME. 2)  ) 

0 VO  L2-  DVO L 1 * DY ( VOL'J.  1 b 2 ) / DT  ( VO  LU.-l E 1 ) 

3 0 0 6 C /iAS3=D  ( A.  IASS ) * DT  ( VOLUrl E 1 ) / ( DT  ( VO LUn b 1 ) + DT  ( VOLUii L 2 ) ) 

DA  AS  S= D ( A. 4 ASS ) * DT  ( VO  LCJ«>1  E 2 ) / ( DT  ( VO  LU.-i  E 1 ) + DT  ( VO  LU( . b 2 ) ) 

P.-| ASS=  ( D ( AREA  1 ) * D ( PTI1ICK ) + ( D ( AREA 2 ) - D(  AREA  1 ) ) * D ( DIA ) 

+ /4.0)*RIIOP 
FA1.'!=DT(  VOLUME 1 )*RIIOIL 
FA2;l  = DT(  VOLUME 2 ) * RtlOI  L 
R 3=0 ( LI ) 

ACP=PmAS3/( RHOP*D{ PHLIGUT) ) 

A SA 1 C = D ( ASF  A ) *DT(  VOLUME  1 ) / ( DT(  VO  LU.-I  L 1 ) +DT(  VOLUr.E  2 ) ) 

A5A2D-D(  ASFA)*DT(  VOLU.-1E2 ) / ( DT(  VOLUI1E 1 ) +DT(  VOLUME  2 ) ) 

A5CD=ACC 

DXC  = DT(  /Ol  UiiE  1 ) / ( 2 . 0*  D(  ARLA1 ) ) 

DXD=DT  ( VOLU.-iE2 ) / ( 2. 0*O{  A R LA  2 ) ) 

AC  Al  = DT ( VOLU.1L  1 ) /D(  PHEIGDT) 

AC  A 2= DT  ( VO  LU.  iL  2 ) / D(  PH  E I GUT ) 

C ESTIuATuS  OF  HLAT  TRANSFER  COEFF. 

OLEAK=0 . 0 

R.-.F(  LI ) =0(  Ll)*RHOIL 
A2=A3S(  R.iF(  LI)  ) *CPFN 

Rl=CF/  ( DXF(  L 1 ) / ACF  ( LI ) + DXA1/ACA1+A3S  ( R:iF(  LI)  ) * DELT/  ( ACP(  LI ) * * 2 
+ * RtlOI  L)) 

I F ( C ( L J ) .LT.0.0)  RdF(L1)=0.0 
R.'» F ( L2 ) =0(  L2 ) * RHOI L 

R6=CF/(  ( DXF ( L2)/ACF(  L2)  ) +DXA2/ACA2+ABS ( R.1F(  L2)  ) * DL LT 
+ /( ACF( L2) **2*RHOIL) ) 

IF(0(L2).  LT.0.0)  R.-lF  ( L2  ) = 0 . 0 

D3=S  I Gil  A*  h PS  I OM*  3 liA  PF*  D ( AS  AC ) * DVOL  i 

D4=D3*DVOL2/DVOLl 

A 1=C  PFN/TI.-lb 

3033  3 1 = D(  UAC  ) *D(  ASAC)  *D\’oLl 
'1 2 = D 1*  DVO  L 2/  DVO  L l 
'3  3 »UA  1C*  ASA  1C 
B 4 = 'JA  2D*  A S A 2 D 
B5  = D(  (JA 1 15 ) * ASA  1 ? 

3 6 = U A 2 P * A S A 2 P 

R?=l . 0/ ( DXF ( L1)/(C( LI) *ACw( LI ) ) +DXC/ ( ACC*CC ) ) 

R3=l . 0/ ( DXF ( L2 ) / ( C( L2)*ACW( L2) ) +DXD/ ( ACD*CD) ) 

RR=CC/( DXD/ACO+DXC/ACC) 

R9=l. 0/ { DXP/ { CP* ACP) +DXC/ ( ACC*CC) ) 

R12=l. /(  DXP/(ACP*CP)+DX!)/(  ACD*CD)  ) 

IF(Q( LI). LT.0.0)  Rl=0 . 0 
IF(Q( LI) ,GT. 0. 0)  R6=0. 0 
C CALCU LATIUG  TL.i PERATURL  DISTRIBUTION 

I3=L1 
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IK=L2 

DCAPT 1= ( l./RHOIL) *ABS ( P( Ll )-DT( PI) )/(CJ*CPFN) 

DCAPT2=(  l./RHOIL)  *AB3(  DT(  P2)-P(  L2)  )/(CJ*CPFN) 

IF(0(L1) .GL.0.0)  GO  TO  3100 
L2=  Ll 
L1=L( 2) 

IS  = L2 
IK=L1 

DCAPT  2= ( l./RHOIL) *A3S( P( Ll )-DT( P2) )/(CJ*CPFN) 

DCAPT  1=  ( l./RHOIL)  * ADS  ( DT{  P 1 ) - P ( L 2 ) )/(C.J*CPFN) 

3100  CONTI NUb 

C A 1 , A 2 , C , D , P NODL3  I -I  ORDhR 

3200  A ( 1 , 1)  = ( FA1.1*CPFN)/DLLT+R1  + P.-1F(  13)  *CPFN+35+33 
A(  1, 2)  = 0.0 
A(l,3)=-33 
A ( 1 , 4 ) = 0 . 0 
A( 1, 5 ) =-3S 

3(1)  =FAl.-\/DLLT*DT(  TFA1 ) *CPFN+(  Rl+RriF( IS) *CPFN)*TF(  Ll) 
+ +A2*  DCAPT1 
A( :,1)=0.0 

A ( 2, 2)  = ( FA2.1)  *CPFN/OLLT+R6+R.’iF(  I A)  *CPFN+36+34 
A( 2, 3) =0.0 
A( 2,4) =-34 
A ( 2 , 5 ) =-36 

3(  2 ) =CPFN*  FA2N*  DT(  TF.A2 ) / DLLT+  ( Rfi  + R.iF  (IK)  *CPFN)  *TF(  Ll) 
+ +A  2*  DC  APT  2 
A(3,l)— 33 
A( 3, 2)=0. 0 

A ( 3 , 3 ) = ( Ci IASS)  * ( CPCN/DL.LT)  +R9+33+  31  K^R  + R2 
A( 3, 4 )=-R0 
A ( 3 , 5 ) = - R 9 

3 ( 3 ) = ( Crf  A S 3 ) * DT  ( TCN ) * C PC  N/  D L LT+3 1 * D ( T A ) + D 3 
+ * D ( TST) -D3* ( DT ( TCN ) +4  6 0. ) * * 4 + R2* Tw ( 1 3 ) 

A ( 4 , 1 ) = 0 . 0 
A( 4, 2)=-B4 
A ( 4 , 3 ) = - R 3 

A(  4 , 4 ) = ( D. ,ASS ) * ( CPOM/DLLT)  +R3+R 1 2+34+3 2+3 3 
A ( 4, 5)=-R12 

B(  4 ) = ( D.-iASS)  *(  CPDN/DLLT)  *DT{  rON)+32*D(  TA)  + D4*D(  TST) 

+ -D4* ( DT ( rDN)+460. ) **4+n3*Tw( IK) 

A ( 5 , 1 ) =-35 
A( 5, 2)=-36 
A ( 5 , 3 ) = - R 0 
A ( 5,  4 ) = - R 1 2 

A(  5 , 5 ) = P;1ASS*CPPN/ Db LT+R9+35+R1  2+36 
B(  5)  = P,'1A3S*CPPN*DT(  TPU  ) / DbLT 
CALL  SI.1ULT(  A,  3, 5,  IbKROR) 

I F ( RQ. LK. 0. 0)  GO  TO  3250 
TC ( L1)=B( 3) 

TC  ( L 2 ) = 3 ( 4 ) 
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6.102.7  (Continued) 

TF( L2)=3( 2) 
GO  TO  3300 
3 20  0 7r( L 2 ) = 3 ( 1 ) 

TC ( LI ) =3 ( 4 ) 
TC( L2)=B( 3) 

3 300  0T(TCt.')=B{  3) 
DT  ( TDI-i ) = 3 ( 4) 
DT( TFN ) =3( 5 ) 
DT( TFA1 ) =3 ( 1 ) 
DT( TFh2 ) =3 ( 2) 
RF  T'JKN 
C\’D 
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7.0  OUTPUT  SUBROUTINES 


The  output  subroutines  comprising,  TSTORE,  TGRAPH  and  SCALED  are 
currently  dedicated  to  producing  print  plots  of  the  data  calculated  by  the 
program. 

Current  options  allow  maximum  or  minimum  calculated  values  to  be 
substituted  for  plot  values  in  event  these  max  or  min  values  occurred 
between  plot  intervals.  This  assures  that  the  max  or  min  values  calculated 
are  reflected  in  the  output  plots.  Another  option  allows  tabulation  of  all 
calculated  values  for  each  plot  variable 
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7.1  SUBROUTINE  T STORE 


Subroutine  TSTORE,  which  is  called  by  THYTR,  reads  output  requirements 
and  stores  data  required  for  output  plots,  and  prints  an  index  of  all  the 
plots. 

7.1.1  Math  Model 
Not  applicable. 

7.1.2  Assumptions 
Not  applicable. 

7.1.3  Computation  Methods 
Section  1000 

Section  1000  reads  in  all  the  plot  information  for  line  and  component 
plots. 

Section  3000 

This  section  first  performs  a test  to  determine  if  the  current  time 
step  is  also  a plot  time,  if  so  line  or  component  data  is  stored.  If  it  is 
not  time  to  store  but  the  MAX/MIN  option  has  been  exercised,  tests  are  made 
to  determine  if  the  current  calculated  value  is  less  than  or  greater  than 
(depending  on  which  option  was  exercised)  the  previous  value  stored,  if  so 
the  stored  value  is  replaced  by  the  current  calculated  value.  If  the  LIST 
option  has  been  exercised  every  calculated  plot  variable  is  printed.  Once 
all  or  a max  of  101  points  have  been  scored,  TGRAPH  is  called  to  plot  the 
points.  A test  is  then  performed  to  determine  if  more  than  101  points  are 
to  be  plotted,  if  so  the  additional  points  (up  to  101)  are  calculated  and 
stored  as  before.  TGRAPH  is  again  called  to  plot  these  points.  This 
procedure  is  repeated  until  all  points  have  been  plotted. 
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7.1.4  Approximations 


Not  applicable. 

7.1.5  Limitations 
Not  applicable. 

7.1.6  Variable  Listing 


Variable 

Description 

Dimt  ns: 

1 

Counter 

- 

INDEX 

Line  Number  Associated  with  Pressure  and/or 
Flow  Plots 

- 

IPLT 

Number  of  Plots 
Required  along  line  INDEX 

- 

IPTS 

Dummy  Variable 

- 

J 

Counter 

- 

LIST 

Input  Integer  Value  0 (No  List)  of  1 (List 
of  all  Points 

- 

LPT 

Coded  Input  1 = Pressure 

2 = Flow 

3 = Component  Temperature 

4 = Fluid  Temperature 

5 = Wall  Temperature 

M 

Counter 

- 

MXTREM 

Dummy  Variable 

- 

N 

Counter 

- 

NABSQ 

Input  Integer  0 = Normal  Graphs 

1 = Frints  Magnitude 

- 

NISTEP 

Counter 

- 

NLPLTC 

Number  of  Line  P]ot  Points 

- 

NOGRAF 

Not  Used 

- 

NOMSG 

Not  Used 

NO STOP 

Not  Used 

- 

NPT 

Dummy  Variable 

- 
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7.1.6  (Continued) 
Variable 


Description 


Dimension 


NXTREM 

N1 

Y 

ra  ) 


Input  Integer  Value  0 (Normal  Plot), 
+1  (Plot  with  Max  Values)  or  -1  (Plot 
with  Min  Values) 

Counter 

Dummy  Variable 

Array  Used  to  Store  Line  Positions  of 
Required  Plots 
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4^ 


7.1.7  Subroutine  Listing 


S'J-3R<MTI  'JL  T3T0RL 


C****  RLVISLD  AUGUST  5,  1975  **** 

00.1. ’.ON  DU»i  ( 3 5 0 0 ) , VS  TOR  t.  ( 1 ) 

CO.-i.-lON  /TRANS/P ( 300 ) , Q(  300 ) , C(  300 ) , 7C(  300)  , TW(  300 ) , TF(  300 ) , 

+ ACf'(  300)  , ACW ( 300)  ,UXF(  300)  , Tint , Dc.LT,  PI , MLINL , NLL 
CO.i.iON  /L Ii. IT/. 1 L I M L r . iNLL,  .1MLLG , i iNNODL , riNPLOT , .4NLPTS , «.DS 
C On. ION  /LI NL/PAR.-t{ 150,4) ,TLW(  2000) ,TLP( 2000) , LSTART{ 150) , 

+ N LS  L'G(  150) 

‘ CO.lnON  /CO.i?/LFYPl(99)  ,NC( 99)  , KTL/.P(  99)  , IND,  IliNTR,  INLL 
CO.  1. 1 ON’  / PLOT/TITLt  ( 20 ) , PLTDlL,  N PT3 , I POINT , ISTL  P , TP  I NA  L , NLPLT  (61,3) 
+ , NA  ISO/ NTOPL, NTOLPL 

DI.  11  N3I  DO  YY(  10)  , DD(  1 100)  , ITITLL(  40)  , IN  ( 40)  , IY(  40)  , I IC  ( 40)  , IC(  40)  , 
1 1 ITITLL  (40)  , ICIIAi<(  12)  ,ICI(40) 

CO.InON/CON  ?D/D(  4500)  , L(  1 500)  , LL(  9 9 , 4 ) 

LO'JIVAL/-NCc.(  OD(  1 ) ,0(1)) 

DATA  1CHAP/4U LINL , 4 1! UPS  , 4HCOHP,  4HVAR  , ?H  P,  2 H 0,2HTC, 

+ 2HTP,  2HTN,  2H  , 4HDNS  ,11)  / 

IP(lLNTR)  1000,  1000,3000 
1000  CONTI NtJh 
I PT=0 


NISTLP=0 
IT).  R = 0 
I ?T3  = M PTo 

IF(NPTS.GT.lOl)  NPTS=101 
r 

NTOLPL=0 

hi.  AD(  5,103)  NLPLTC  , NTLLPL,  NXTRLn  , LIST,  .NOSTOP , NO-4SG,  NOGRA  F , N.A3SQ 
103  FOR.  1 AT (815) 

IF ( NLPLTC . Ln. 0 ) GO  TO  142 
DO  110  1=1, NLPLTC 

PLAD{  5, 109)  INDLX,  IPLT,  ( I Y ( .** ) ,ri=l,  IPLT) 

109  FOR. .A'T ( 1515) 

DO  130  .1-1,  IPLT 
LPT=  I Y(  .1 ) 

LOC=2* INOLX-1 

IF  (LPT.  LL . 0 ) LOC  = 2 * I N DL  X 

NTOLPL=NTOLPL+l 

C LOC  - ADDRL3S  OF  VARIA3LL  IN  P,0,TC,TN  OR  TF  ARRAY 

C INDLX  - LI  JL  NUriOLR 

C LPT  - CO OLD  INPUT 

■JLPLT(  NTOLPL,  2)  = I 1DKX 
■.'L°LT(  NTOLPL,  3 ) = LPT 
4LPLT( NTOLPL, 1}  = LOC 
130  CON TIN UL 
140  CONTI NUL 
142  CONTI NUL 

N T O P L = N T O L P L + M T L L P L 
I F ( N T9L PL . GT . . IN  PLOT ) N TO  L P L=.  1 N P LOT 
C 

IF ( NTF LPL. LQ. 0 ) GO  TO  144 
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7.1.7  (Continued) 


READ( 5, 143)  ( ( N LPLT ( 1 +NTOLPL, 2 ) ,MLPLT( I+NTOLPL, 3) ) , 1 = 1 , NTLLPL) 

143  FORi-iAT(  1615) 

144  CONTINUE 

I F ( -4 TOL PL+N T E L PL . GT . w N P LOT ) N T E L PL=i-i N P LOT- NTO L P L 
IF(  NTOLPL+NTLLPL.  NE.NTOPL)  WRITE ( 6 , 5 20) 

NTOPL=NTOLPL+NTELPL 
IF('NTELPL.EQ.O)  GO  TO  3000 
LPT=NTOLPL+l 
DO  1200  I=LPT, NTOPL 
NPT=N LPLT( 1,2) 

VJ  =NLPLT(  1,3) 

IF(N)  1150,1130,1160 
1150  Nl  = -I.h(NPT,3)+N  + l 
GO  TO  1170 

1160  N1*LE(MPT, 2)+N-l 
1170  NLPLT{ I , 1 ) =N1 
GO  TO  1200 
1 ISO  *ILPLT(  I , 1 ) = 1 
1200  CONTINUE 
C 

3 000  CONTINUE 
C 

IF( ISTLP.L0.NI3TLP)  GO  TO  2010 
IF(  NXTRE/i.  EQ.  0.  AND.  LIST.  EQ.  0 ) RETURN 
nXTRLN  = NXTRE.i 
GO  TO  2020 

2005  NIoTtP=NISTKP-I POI 4T 
2010  . iXTRL.4  = 0 
I PT= I PT+1 

NI3TLP=NIJTL?-LI  POINT 
VSTORE(  I pt)=ti.;i; 

2020  M PT= I PT 
01  = 0 

DO  2200  1=1, NTOPL 
HPT=iJPT+NPTS 
N=NLPLT( 1,1) 

NN=IA3S(NLPLT( I, 3) ) 

TF{ I.GT.NrOLPL)  GO  TO  2050 
GO  TO( 2001,2002,2903, 2004, 29Q5JNN 
2001  Y = P ( N ) 

GO  TO  2080 

2902  Y=0(M) 

I F ( N LPLT (1,3) .GT.0.0)  Y = -Q(N) 

GO  TO  2080 

2903  Y=TC(U) 

GO  TO  2080 
2004  Y=TF(N) 

GO  TO  2030 
2905  Y=7W( N ) 

GO  TO  2080 
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2050  I?(ri)  200  0, 2 15u,  2070 
2060  \=DD(-N) 

GO  PO  2000 
2070  Y=D(W) 

2000  IF(.iXrRb.-.)  2000,2005,2100 
2005  IF { I STL  P+ IPO  I. IT.  LO.NIoTKP)  GO  TO  2110 
GO  TO  2130 

2000  IF(  \Z.5T')RL(i'JPT)  .GT.  x)  GO  TO  2110 
GO  TO  2120 

2100  IF(  VSTORL(tMPT)  .Ob.Y)  GO  TO  2120 

2110  VGT  )HL(  il  PT ) = Y 

2120  1 1'  ( L I S T . L 0 « 0 ) GO  TO  2200 

IF(7.l?.l)  aRITL( 6, 2211)  TIiK 

2M0  ,ii=:n  + ] 

YY(N1)=Y 

IK(.'ll.ML.lO)  GO  TO  220  0 
,vRITL(  6, 2210)  YY 
Nl-0 

GO  TO  2200 

2150  i’i 0 1 r L. ( 5 , 2 2 2 0 ) I 
Y=n.-ih 
GO  TO  2000 
2200  CO'J?I\’UI 

IF  ( M * LIST. 0 ) ,'RITL  ( 6 , 22 1 0 ) ( YY{  I ) , 1 = 1 , HI  ) 
I F ( I °T.  TL.NPTb)  RLTJXM 
IF ( ITI-R.L0.  1 ) GO  TO  2550 
>»‘F  ITL  ( 6 , 1601) 

.«RITL ( 6,  160  3) 

IF(  iJXTRL. i)  5,12,10 
5 v. RIT1  (6,  1606) 

GO  TO  1220 
10  wR I Pl, ( 6 , 1607) 

GO  TO  1220 
12  wRITu(  6,  1 603  ) 

GO  TO  1220 
1220  ,,'MTiA  6,  1603) 

J.7  = 0 

1 1 “OTOPL 
111=0 
113=1 

DO  1300  1=1,11 
3 = 1 

J.J=3J  + 1 

15  N1=NLPLT(  1,1) 

MP?=3  LPL'l’i  1,2) 

N=\’  LPLT  ( 1,3) 

IF( I.GT.NTOLPL)  GO  TO  2500 
ITITLb  { J.J ) = I CHAR  ( 1 ) 

1«(  .JJ)=N  PT 

I IT ITLK ( J J ) = ICH AR ( 2) 
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IF  { N . LT.  0 ) IITITLi.f  J J ) = ICHAR  ( 1 1 ) 

LL=IA63(N) 

IC(  JJ)  = IC!1AR(  4 + l:.) 

I IC ( JJ)  = ICf!AR( 10) 

IC I ( JJ)=ICHAR( 12) 

GO  TO  1700 

2500  ITITLC ( JJ )= ICHAR ( 3 ) 

I ITITLE ( JJ)=ICHAR( 4 ) 

IN(  J.J ) = N'nT 

IC 1 { JJ)=ICHAR(  12) 

X Y ( JJ)=N 

IC( JJ)=ICHAR( 10) 

I IC  ( JJ)=ICHAR(  10) 

1700  IF( JJ.LT.10.AND. I. LT.NTOPL)  GO  TO  1300 
III=III+JJ 

»vRITL(  6 , 1 500)  ( ( ICI(JJJ)  ,( JJJ)  ) , J.)  J=J  I G , 1 1 1 ) 

I I G=.7 10+10 

IF( I.GT.NTOLPL/  GO  TO  75 

ivRJ  f*L(6, 1600)  ( ( ITITLE  ( J J J ) , I M ( J JJ  ) , IIC(  JJJ)  ) ,JJJ=1  , JJ) 

SPITE ( 6, 1699)  ( ( IITITLE( JJJ)  ,IC(  JJJ)  ) ,JJJ=1, JJ) 

GO  TO  16 

7 5 WRITE ( 6,1604)  ( ( ITITLb (JJJ) , IN( JJJ) , IC ( JJJ) ) , JJJ  = 1 , JJ) 

’JRITL{  6, 1604  ) ( ( I ITITLb  ( JJJ)  , IY(  JJJ)  , IIC(  JJJ)  ) ,JJJ=1,  JJ) 

16  wRITL( 6, 1605) 

JJ=0 

1300  CO  NT  I. SI  UK 

WRITE ( 6 , 1602) 

«RITL( 6, 1603) 

ITLR=1 

2550  CALL  TORAPf! 

I T ( I PTS-NPTS)  2300,2350, 2310 
2 300  J PTS= I PT3 
I ?T=0 

GO  TO  2005 
2310  NPT 3=1 01 

I PTS=I PT3-1 00 
I ?T=0 

GO  TO  2005 
'?350  CO'CTIMHl 
RETURN 

520  FOR.) AT ( 5X,  42MTOO  MANY  PLOTS  RLOULSTLD  ,-iAX  NUJUER  IS  60  ) 

2210  FOR/iAT(  5X , 1 0L1  2.5) 

2211  FORM  AT  ( //  , 5 X , 2 5H  DATA  CALCULATED  AT  TI-iE  =,F8.4) 

2220  FORi1AT(  5X,  4 5HVALUL  OF  N IN  2000  SECTION  OF  CO.-1P  IS  ZERO  1=  ,15) 

1500  FORMAT ( 4X, 10( Al , 6JORAPH  ,14,  IN  )) 

1600  FORMAT ( 5X,  10(  A4,  21!  , I4,A2)) 

1 699  FORMAT ( 5X , 1 0 ( A4 , 4H  ,A2,2i!  )) 

1601  FORMAT  ( III  1 , 4 2X , 351)  VAR  I A3  LES  SELECTED  FOR  OUTPUT  PLOTS) 

1602  FORMAT ( 1 J 1 , 5 3X , 1 3UUYTRAN  OUTPUT) 

1603  FOR* i AT ( IliO) 
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16  0 4 FORMAT ( 5X,  10( M, 16, A2)  ) 

1*05  F01MAT(  I I ) 

1606  FORiiAT(  2 AX  , 7 1I1VALULS  PLOTTED  RLPRLSLNT  .-II '1  IFifJ.-i  VALHLb 
IN  THL  TI.1L  INTERVAL) 

1507  FORMAT ( 7 3X , 7 lHVALULo  PLOTTLD  RLPRLoLNT  i-.AXI.-ilM  VALUL3 
2N  T.’.L  TluL  INTERVAL) 

160ft  F0Ri.AT(  21X,  7 51IVALUL3  PLOTTLD  RLPRLSLNT  THL  ACTUAL  V A L ' 
30  AT  LAC!)  PLOT  INThRVAL) 

I ND 


CALCULATLO  I 
C ALCULA  TL  0 I 
JLS  CALCULATL 
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7.2  SUBROUTINE  TGRAPH 


Subroutine  TGRAPH  produces  print  plots  of  the  output  data  stored  in 
V STORE  ( ) . 

Most  computers  will  have  their  own  version  of  this  subroutine  which 
could  be  used  if  necessary .•  However,  since  the  plotted  output  is  such  an 
integral  part  of  HYTTHA,  this  subroutine  has  been  added  to  avoid  the  problems 
involved  in  changing  from  one  computer  to  another. 

7.2.1  Theory  - Not  applicable. 

7.2.2  Assumptions  - Hot  applicable. 

7.2.3  Limitations 

The  program  is  executed  one  for  each  plot,  up  to  the  total  number  of 
plots  NTOPL.  The  DO  901  J = 1,  NTOPL  controls  this  loop. 

The  first  section  which  sets  the  X scale,  is  only  executed  on  the  first 
pass,  when  J = 1. 

The  program  currently  uses  VSTORE  (1)  as  XMIN  and  VSTORE  (NPTS)  as  XMAX. 
In  the  second  section  a DO  loop  is  used  to  find  the  maximum  and  minimum 
values  of  the  Y data  to  be  plotted,  using  the  functions  AMAX1  (YMAY,  VSTORE, 
(I+I.ADD) ) and  AMIN1  (YMIN , VSTORE  (I+IADD) ) . 

With  the  maximum  and  minimum  values  established,  a check  is  made  to  see 
if  they  are  equal,  if  they  are,  25  is  added  to  YMAX,  and  YMIN  is  set  at  50 
less  than  that,  to  avoid  a fruitless  search  for  a suitable  scale. 

Subroutine  SCALED  is  then  called  to  obtain  a preferred  scale  for  the 
Y axis,  and  returns  with  values  for  YMAX  and  YMIN. 

The  next  section  finds  the  type  of  plot  and  sets  the  plot  character, 

P,  Q,  T or  C and  the  data  to  be  mritten  at  the  bottom  of  the  output  plot. 
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The  routine  then  starts  the  output  plot  section  by  going  to  the  top  of 
a new  page,  and  proceeds  to  plot  the  output  data,  line  by  line  until  the  plot 
is  complete. 

At  the  bottom  of  the  plot  a descriptive  line  is  written  which  gives  the 
line  number  and  distance  along  the  line  for  line  pressure  or  flow  plots  or 
the  variable  number  and  the  component  number  if  it  is  a component  data  plot. 

The  next  printed  line  is  the  title  of  the  run,  which  was  inputted  on 
the  first  data  card. 

When  all  the  plots  have  been  completed,  a listing  of  the  titles  is 
provided  on  the  final  page  of  the  program  output. 
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7.2.4  Approximations 


Not  applicable. 

7.2.5  Limitations 

The  basic  limitation  of  a print  plot  is  the  number  of  points  that  can 
be  plotted  on  a single  page  graph  and  the  resulting  inaccuracy  in  reading 
the  graph.  To  an  extent  these  limitations  can  oe  over  come  by  use  of  the 
MAX/MIN  and  LIST  options  noted  in  Section  8.0  of  Volume  I of  this  report. 


i Variable 

Listing 

Variable 

Description 

Dimensions 

t t»r 
! \V  O 

Absolute  Value  of  Vb 

- 

DIST 

Distance  of  Plot  Point  Down  a Line 

IN 

I 

Counter 

- 

IADD 

Address  J*NPTS 

- 

ICHAR 

Plot  Character 

- 

ICHAR(  ) 

X and  Y Axis  Write  Characters 

- 

ISP 

Counter 

- 

ISPACE(  ) 

Temporary  Variable  for  Writing  X and  Y Axis 
Scales 

- 

ITEST 

Counter 

- 

J 

Counter  Indicating  Plot  Number 

- 

L 

Dummy  Variable 

- 

LINE 

Integer  Counter  for  Plot  Line  Number 

- 

NABSQ 

Integer  Value  1 or  0 
Used  as  Indicator 

- 

NCHAR 

Dummy  Variable  Representing  Plot  Character 

- 

NVAR 

Dummy  Variable  Representing  Point  at  which 
Line  Plot  is  Taken  or  Component  Number 

- 

SP 

Column  Number  Nearest  to  the  Ith  Value  of 
X-  Variable 

- 
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Variable 

VS 

XAX 

XDELTA 

XMAX 

XMIN 

XSCALE 

Y 

YDELTA 

YEAST 

YLO 

YMAX 

YM1N 

YUP 


Description 

Dummy  Variable 

Temporary  Variable  for  Writing  X Axis 
Scale  Values 

Distance  Between  Stored  Points  on 
X Axis 

Last  (Largest)  X Axis  Value 
First  (Lowest)  X Axis  Value 
X Scale  Range 

Temporary  Variable  (Y  Axis  Scale  Value) 

Distance  Between  Stored  Points  on  the  Y Axis 

Last  Y Axis  Scale  Value 

Lowest  Value  in  Search  Range 

Maximum  Value  to  be  Plotted 

Minimum  Value  to  be  Plotted 

Highest  Value  in  Search  Range 


Dimensions 
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Subroutine  Listing 


SUBROUTING  T3RAPU 
C****  RLVI3L0  AUGUST  5,  1975  **** 

CQ/.iOM  0U.1(  3500)  , VSTOPL(  1 ) 

CO.-i.iOM  /TRANS/ P(  300)  ,0(  300)  ,C(  300)  ,TC(  300)  ,Tw(  300)  ,TF(  300)  , 

+ ACF( 300) , ACW ( 300) , DXF( 300) , TIi-lK,  DLLT,  PI , NLINL,  NLL 
CO.  . iON  / L 1 .1 1 T/Vi N L I N h , i ! N L L , *'i N LL G , .*i NNODL , MNP LOT,  rlNLPTS  , A DS 
CO.-n !OM  /LI  4C/PARM  150,4  ) ,TLW(  2000)  ,TLP(  2000)  , LSTART(  150)  , 

+ ‘4  LS  LG  ( 150) 

COn.iON  /COri  P/LTY  Pt  ( 9 9 ) ,NC(09)  , KTK.-1P(  99  ) ,I«D,In.NTR 

CO.-i.iON  / P LOT/TITLE  ( 20)  , PLTOLL,  NPTS  , I POINT,  ISTLP,  TFINAL,  N LPLT(  6 1 , 3) 
+ , NASS  N POPL,  NTOLPL 

OI.ILNSION  ISPACbf  101)  , ISTK(2)  , XAX(6)  , IC»ART(9) 

DATA  ICHART/10O,  HIP,  lrlC,  INI,  1'!-,  1H  + , 1H  , l!I*  , 1M7/ 

DATA  ITl.'jT,  XSCALL/ 0,0.0/ 

DATA  I3TR/10H  ’JPoTRLAIi  , 1 OHDOWNSTRLA.-i/ 

C 3 LG IN  OUTLR  LOOP.  FIND  X PARAULfbRS  ON  FIRST  PASS  ONLY 

1 DO  901  J=l,  NTOPL 
IADO=J*NPTS 

IF ( J . ML . 1 ) GO  TO  2 
X.  iAX=VSTORL  ( M PTS) 

X. -iIN  = VSTORL  ( 1 ) 

ITLST=I FboT+l 

IF(  ITlST.  ML.  1 ) Xi,iAX  = .X.'1I N+XSCALF) 

XSCALL=X4AX-X.’iIN 
C CALL  SCALLD( XNAX , XMIN ) 

XDLLTA=( XNAX-X  !IN)/100. 

C FIND  Y PARA.-1LTLPS 

2 Y.iAX=VSTOr<i:(  1 + IADD) 

Y.  iIN=Y.iAX 

DO  902  1=2,  N PTS 

Y.  1 AX=A.  IAX 1 ( Y.-iAX , VS  TOR  L ( I + 1 ADD)  ) 

902  Y.iIN=A.lINl  ( Y.ilU,  VSTORL(  I + IADD)  ) 

NASS 0=0 

IF( J,GT.MTOLPL.OR. NLPLT( 1, 1) .GL. 0)  GO  TO  905 
IF ( MASS'}*  LQ.  0 ) GO  TO  905 
Ir'fY.llN.GT.O)  GO  TO  905 
NASSOsl 

IF(  A'3S(  Y.-iI'J)  ,GT.  Y.-iAX)  Y.lAX=ADS  ( Y. . I 4 ) 

905  IF(  Y.4AX.NL.  Yr.IN)GO  TO  9 0 20 
Y.-iAX  = Y.-IAX  + 2 5. 

Y.'1IN=  Y.iAX  - 50. 

GO  TO  9025 

9020  A MAX  = ( YuAX+Y.-lI  '1 ) * . 001 

IF ( { Y.-IAX— Y.-1I-'I)  .GT.A.iAX)  GO  TO  9025 
Y/iAX  = Y.lAX+A.iAX 
YMIN  = Y.-1IN- AuAX 
9025  CALL  SCALLD(  Y.-iAX,  Y.-1IM) 

YDLLTA=  ( Y.iAX-Y.-i  I N ) / 5 0 . 

C FIND  Ll-'Jh/COU PONLMT  NU.I3LR,  TYPL  OF  PLOT,  OUTPUT  DATA 

L=NLPLT( J, 2) 


7.2-5 


7.2.7 


(Continued) 


IF  ( l.GT.NTOLPL)  GO  TO  5 
10.1  = 1 A3:>(NLPLT(  .1,3)) 

UVAR=NLPLT( J, 3) 

GO  T0( 4, 3,730, 730,730)IMJ 

3 ICHAP=ICHART(  1 ) 

GO  TO  G 

4 ICHAR=ICHART( 2 ) 

GO  TO  G 

730  ICHAR=ICMART(9) 

GO  TO  G 

3 ICH  AP.=  ICHART( 3) 

C GO  TO  TOP  OF  Nl.XT  PACL 

G A p I T L ( 6 , G 0 1 ) 

C L00°  FOR  IACU  PLOT  LIML. 

Y = Y iAX  + YUt'LTA 

7 DO  907  LINL*1,  31 
YLA3T=Y 
Y=Y-YDLLTA 
YUP=  Y +YOL LT A/2  . 

Y LO=  Y - Y OL  LT  A/  2 . 

C FI  PST  + LAST  CHAR.  ON  LINb  = *1* 

IoPACM  1 ) = I C 1 1 A RT  ( 4) 

1 3 PACL ( l01)  = ICilART(  4) 

C FUST  + LAST  I,!  It  3 ALL  *-*,  LXCLPT  * + * IN  11,21,31,41,. ..,31, +91 

I F ( LI  1 1. . 0 L . 1 .AGO.  LINL.NL.  5l)GO  TO  11 
9 00  099  ISP=2, 190 

1F( ( ISP-1 ) .tO. { I3P-1)/10*10)GO  TO  10 
ISPACL( ISP) =ICHART( 9) 

GO  TO  999 

10  I S PACL  ( I S P)  = ICIIART(  6 ) 

909  CONTI MUt 

GO  TO  14 

C INIfIMZL  COL.  2-100  ON  LI  MLS  2-50  TO  * *,  OR  * + +-*  IF  AXIS 

11  IFU.LL.0.  „ AND.  YLAST.  GT . 0 . ) GO  TO  13 

12  DO  912  IS P=2 , 100 

912  I S PACL  ( I S P)  = ICl!  Ak? ( 7 ) 

GO  TO  14 

13  DO  913  !GP=2, 190 

I SPACL ( ISP)  = ICHART(  5) 

913  IP ( ( ISP-1)  .in.  ( ISP-D/l  9*10)  ISPACM  IS?)  = ICHART(  6) 

C S LARCH  Y-VALDh  ARRAY  PQR  TriOSL  IN  RANGL  YLO.  LT.  VALUL . CL . YUP 

M DO  914  1 = 1,  OPTS 
VS-V3TORL. ( I+IADD) 

NCHAR=ICMAR 

I F ( VS  . GT . Y LO  .AND.  VS  . LL . YUP)  GO  TO  145 
IF( NAOSO.NL. 1 ) GO  TO  914 
AV3=ABS( VS) 

TF(  AV3.LT. YLO. OR. AV5.GT. YUP)  GO  TO  914 
NC  HA  R= I C H A RT  ( R ) 

C FIND  CO  LOON  NU.iBLK  NLARLST  TO  I-TH  VALUL  OF  X-VARIAPLL  tori  IS  N 3CALLD 
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145  SP=(  VS'?URL(  I )-X.;lN)/XDLLTA  + 1 

IF(SP-AINT(SP) .GT.0.50)  3P=3P  + 0.50 
IS  P=SP 

c Ciil.C < ISP.  IK*  L*r  0 OK  GT  102,  LRROR;  IF  0,  ADO  l;  IF  102, 

IF(ISP)  OH,  15,  15 

15  ISP=1 

30  TO  H 

16  I F ( ISP-102) 13, 17,914 

17  I3P=101 

13  TSPACh (ISP) =NCHAR 
OH  CONTIMUK 

C LINKS  1,11, 21, 31, 41, +51  MAVL.  Y-VALULS;  TIILSb  LINLS,  PLUS 

C 16,26,...  ' LSO  HAUL  *+*  IN  COL.  1+101  IF  IHPTY 
IF ( ( LI NL-1) .ML. ( LINb-l)/5*5)GO  TO  19 
Ip( IS PACK ( 1) .ML. ICHAR)  ISPACK{ 1 ) = 1CHART ( 6 ) 

I F ( IS  PACK  ( 101)  .ML.  ICHAR)  ISP.iCM  1 01 ) =ICHART(  6 ) 
IF((LIML-1).NL.( LINK- 1 ) /I 0* 1 0 ) GO  TO  13 

C U R IT K OUT  PLOT  LINL,  COMTINUL 

wRITt( 6, 602) Y,  IS PACK 
GO  TO  90' 

19  WRITL( 6, 60 1) ISPACI 
907  COM TI MUL 

C CALCULATE  + PRINT  X-AXIS  VALULS 

20  DO  920  1=1,  6 

<129  XAX(  I ) = X.1IN  + ( 1-1  )*20.*X!1LLF\ 
kRIT! (6,604)  XAX 

C V.RITL  LOW  LX  TITLLS  + VALULS,  RLKMTLR  OUTLk  LOOP 

IF  ( J.GT.MTOLPL)  GO  TO  23 
II=I3TR( 1) 

IF(  MVAK.  LI'.  0)  I I = ISTR(  1 ' 

NN=IA3s( NVAR) 

GO  TO( 711,712, 713, 714, 715) \N 

711  1 / R I T L ( 6,606)  7 , II, L 
GO  TO  900 

712  v,  P I Tt  ( 6, 605)  3, II, L 
GO  TO  900 

713  WRITL(  6, 612). 7,  IT,  L 
GO  TO  900 

714  WRITC(  6, 613) -7, II, L 
GO  TO  900 

715  WRITL( 6,614)  7 , 1 1 , L 
GO  TO  900 

23  WRITL( 6, 607) J,NLPLT( J, 3) , L 
900  COMTINUL 

WRITL ( 6,608) TITLb 
001  COMTINUL 
1003  WRITK( 6,601) 

NRI TL( 6,610) 

NRITL( 6,611) 

IF{ TIMU. LT.TFINAL-DL LT ) RLTU RN 
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L 


;L,, 


f 

i 


^ 17S0  J=1,NT0PL 
L=\’  LPLT  ( J , 3) 

IF(  7.CT.  4TOLPL)  GO  TO  50 
II=ISTR( 1) 

I F ( L.  LT.  0)  I I = I.;TK(  2) 

NM=TA3S( L) 

GO  TO( 701,702, 703, 701 ,705) MN 
7 01  P I TL  ( 6 , 6 0 5 ) J , 1 1 , N L P LT < J , 2 ) 

GO  TO  1250 

7 02  .*kITL(  6, 505)  J,  II  ,NLPLT(  J,  2) 

GO  TO  1250 

703  w R I TL ( 5 , 5 1 2 ) J , 1 1 , N LPLT ( 7,2) 

GO  TO  1250 

704  wRITl{ 6, fil 3) J, II ,NLPLT( J, 2) 

GO  TO  1250 

705  wR I TL ( 6 , 6 1 4 ) ,7  , 1 1 , N LPLT  ( J , 2) 

GO  TO  1250 

50  WRITE ( 5, 507)  J,NLPLT(  J,  3)  ,NLPLT(  J,  2) 

1250  CONTINUE 
6 PI  FOR,  SAT  ( 1H1) 

6 02  rOR«i.M’(  IX,  1 5X , PI  2.  4,  IX,  101A1) 

6 03  FOR.-,  AT  ( IX,  28X,10iAl) 

6^4  fof.1AP(  IX,  23X,5(F9. 3,  3 IX)  ,P9.  3) 

605  FOf!  l A r ( IX,  23X,  6 H GRAPH  ,I3,lX,33H  FLOW  ( CU.  IO/SLC  ) VS.  TI-.L  (SLC.) 

+ ,M  0,160  OF  LI  gL  MU.vULR  ,15) 

606  FOR/iAT(  1 X,  28X , 6HGKAPH  , 13,  IX,  3311  PRLSSURL  (PSIA)  VS.  TI..L  (SLC.) 

+ ,A1 0,16.1  LI'JL  NU.I3LR  ,15) 

61?  FOR,  i AT  ( IX,  23X , 6IIGRAPH  ,I3,lX,47ii  COllPOUbNT  Tt.-l  PtRATURL  (OLG.F)  VS 
+ . TI.-1L  (SLC.  ) ,A10,  12M  OF  LI. 91.  .90.,  15) 

613  FORMAT  ( IX,  23X,  6HGRAPH  ,I3,lX,43ii  FLUID  TL.lPLRATURL  (DEG.F)  VS.  TI 
+.1L  (SLC.  ) , A10, 12li  OF  LITE  .NO., 15) 

614  FOR.  SAT  ( IX,  ?3X,  SHGRAPl!  ,I3,1X,42H  v.’ALL  TLwPlRATURL  (DLG.F)  VS.  TI.-. 
+ L (SLC.  ) ,A10,  12U  OF  LIW  NO.,  15) 

607  FOR.iAT(  IX,  23X,  6HGRAPH  ,I3,1X,13H  VARIABLE  NUMBER  , I3,21H  OF  CO.-1PO 

+ 9LNT  OUOOLP  , I3,3!3H  VS.  TI.-1L  (SLC.).  THE  VARIABLE  IS ) 

603  FOR. i AT ( 1 X , 23X  , 20A 4 ) 

610  rOR.IAT(  lil 0 , 65X  , 27HMYTPAN  PROGRA.1  OUTPUT  PLOTS) 

611  rQP.  i'>?(  1.10) 

RETURN 

LSI) 
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7.3  SUBROUTINE  SCALED 


The  subroutine  SCALED  is  used  by  TGRAPH  to  obtain  a preferred  scale  for 
the  X and  Y axis  of  the  print  plot  graphs. 

The  number  of  divisions  on  the  X axis  = 100  and  the  number  of  divisions 
on  the  Y axis  = 50,  a preferred  scale  system  was  chosen  which  would  give  a 
difference  between  RMAX  and  RMIN  of  either  1.0*1Q**N,  2.0*10**N  or  5.0*10**N 
where  N can  be  +ve  or  -ve. 

The  graph  data  MAX  and  MIN  is  centered  between  RMAX  and  RMIN  unless 
either  RMAX  and  RMIN  can  be  set  to  zero. 

An  overriding  requirement  is  that  the  scales  should  be  at  some  reasonable 
number  for  easy  reading  hence  with  a range  of  5000,  the  MIN  can  be  set  at 
intervals  of  500,  or  range/10.  This  sometimes  leads  to  a larger  scale  being 
used  than  would  expected  from  the  actual  range. 

The  goal  however  was  graphical  readability  and  scalability  without  the 
need  to  resort  to  a calculator  to  find  the  value  of  a point,  and  in  meeting 
this  goal  we  have  payed  some  penalty  in  the  size  of  the  actual  graph. 

7.3.1  Theory 

Not  applicable. 

7.3.2  Assumptions 
Not  applicable. 

7.3.3  Computation 

See  subroutine  listing. 

7.3.4  Approximation 
Not  applicable. 
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7.3.5  Limitations 


In  its  present  form  SCALED  gives  inconsistent  answers  for  small  values 
of  RMAX  and  RMIN,  and  is  not  currently  used  to  scale  the  X axis. 

7.3.6  Variable  Listing 


Name 

Description 

Dimension 

AMAX 

Maximum  value  to  be  plotted 

- 

AMTN 

Minimum  value  to  Ve  plotted 

- 

1B0T 

Variable  used  to  calculate  Y 
scale  values. 

axis 

- 

IEMAX 

Variable  used  to  ca-lculate  Y 
scale  values 

axis 

- 

I EXP 

Variable  used  to  calculate  Y 
scale  values 

axis 

- 

HOP 

Variable  used  to  calculate  Y 
scale  values 

axis 

- 

J 

Integer  counter 

- 

MANT 

Variable  >sed  to  calculate  Y 
scale  values 

axis 

- 

RANGE 

Range  of  values  to  be  plotted 

- 

RMAX 

Maximum  Y axis  scale  value 

- 

RMIN 

Minimum  Y axis  scale  value 

- 

SCALE (-) 

Scale  factors  for  Y axis 

__ 
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non  on  non  n o on  on 
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Subroutine  Listing 


SUBROUTINE 


SCALED*  R.1AX,  R.1IM) 


DIMENSION  SCALL ( 6 ) 

DATA  SCALE/ .5,1.  , 2.  , 5.  , 10.  , 20./ 
FrND  THE  RAtNGE  OF  VALUES  * RANGE* , 
POINTS  IN  *A,  i AX*  AND  *A.ilN* 


RANGE=RHAX-RMI  7 


AND  PLACb  ACTUAL  MAX  AMD  .-,IN 


A.1AX=RMAX 


A.tl  'IsR'lIN 

FIND  AH  INTEGER  EXPONENT  *ILXP*  AND  BASE  *UANT*  SUCH  THAT  THL 

VALUE  OF  .'.A  NT*  * I LX  P IS  .GK.  RANGL 

I XP=AEOG  1 0 ( RANGE  ) 

.’!  ANT=RANGE  /10.**ILXP 

I F ! RANGE . GT . HA  NT* 1 0 . * * I EXP ) HANT=H AHT+1 

!JS  NG  MAN  A',  SELECT  ONL  OF  THE  PREFERRED  SCALES 

IFl  .1A NT.  GT.  10)  GO  TO  7 0 
IF (/ANT. LT. 1)  GO  TO  70 

GO  TO(S0, 90,110,100, 100, in, m.-lJLO, 110, 70),  MAHT 
7 0 HA  VI=1 

n;xp=ibxp+i 

80  J = 2 

GO  TO  170 
90  .7  = 3 

GO  TO  120 
100  .7  = 4 

GO  TO  120 
110  J = 5 

SET  * I b.  iAX*  lOUAL  TO  THE  EXPONENT  OF  19.  CORRESPONDING  TO  R.  i.AX 

120  if(f:iax.eo.o.)  go  to  1 21 

I L . 1 A X = A L : > G 1 0 ( A B S ( 1 1 1 A X ) ) 

USE.  A.) AX  AND  IBmAX  TO  FIND  A POSSIBLE  .iAXIHU:i  VALUE  FOP  Tt!E 

SCALL.  PLACE  THE  VALUE  IN  UMAX,  AND  COMPARE  WITH  TIE  ACTUAL 

HA XI. HU. i POINT. 

R,  iAX=I  NT  ( A 3 3 ( AH A X ) / 1 9 . * * I E.-.AX  ) * 19 . * * I EM  AX*  3 1 GN  (1.0,  A.-iA  X ) 

121  I F ( Ri  1 A X . GE . A. i A X ) GO  TO  130 

IF  R/t A X IS  . LT.  ACTUAL  ..AX  POI  NT,  INCREASE  IT  3Y  5 

PERCENT  AND  Ri.ClIbCK  — RLPEAT  AS  NECESSARY 

R.1AX  = Rf! AX+ . 05* SCALE ( 7)  *19.**IbXP 
GO  TO  121 


3 LT  THE  SCALE'S  .ilUIHUM  BY  SU 

IF  THL  ACTUAL  .-iINIMU  5 *A.iIN* 

BY  K.IPX  AND  R.iIM , COUTINUL. 

130  P.i  I' J=R.‘i.AX-SC  ALE  ( J ) * 1 0 , * * I EXP 
I F ( R iIN. LL. AMI N ) GO  TO  J 50 

C GO  TO  THE  NEXT  LARGEST  SCALE, 

J=i7fl 


Llbi 


SCALE ( 7 ) * * I lXP 
'/<  I T M I N THE  RANGE  NO/, 


F KO. . J...AX 

OLFINLD 


RLCALC ULATt  RmIN,  AL'D  RICH!  CX 


IF( J.LT. 5. 5) GO  TO  130 


J = 1 


I EXP=I EXP+1 
GO  TO  130 

C IF  THL  SCALE'S  MIN  lb  .LT.  ZERO,  BUT  THE  ACTUAL  HIM  IS  POSITIVE, 
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oo  o on  r>  no 


7.3.7  (Continued; 


C SHIFT  V.lL  SC  ALL  DP  GO  7 MAT  Till.  SCALb  BLGIUS  AT  ZLRO 

ISO  1 F ( F.IT  :.*A  7 l . GT . 0 . ) GO  TO  170 
R -«r3  = o. 

160  r.mAx=gca‘  M)*n.**if-xp 

OUl  TO  Tat  GdT'-’T,  IT  '.AY  Mb  P03SI1LL  TO  DECRLASL  THL  SCALP  TO 

TUI,  "L  >'T  Si  ALLIS?  SIZL 

l*(  AGAX.OT.  1.000091*3CALL(  1-1  )*10.**ILXP)  RLTURG 
.7-  T-l 

I’-  ( J.GT.  1.  5)  GO  TO  160 
J = 4 

I LX ?- 1 LX  P- 1 
GO  TO  160 

IP  R.ilw  IS  POSITIVL  AMD  ML-AR  ZLRO,  SIII^T  TcIL  3CALL  OOvvN  TO  0.  ..I'.' 

170  IF{  R.,I  1.  LT.0.  )GO  TO  176 

I?(  R.ilP.GT.  . 1*R,IAX)G0  TO  160 
RSIM-O . 

R.  iAX=GCALr.  ( 7)*10.**UXP 

11.'  prj|.  GI’I  T lOG."  CAUSES  R.iAX  TO  LIL  ALLOW  TIL  ACTUAL  LAX, 

1,'JCPIASL  THt.  GCAL!-  RA.XGL  TO  THO  ULXT  LARJP.f.V 

IF  ( R.iAX.  LT,  A.  .AX ) R:iAX=oCALL . J + l ) * 1 0.  * * I LXP 
RL  TUPS! 

IF  R.IAX  IS  TbGATIVL  AGO  MLAR  ZLRO,  SHIFT  TUb  SCALP  UP  TO  0.  iA Y. 

176  iF(  R.iAX.GL.  0.  ) GO  TO  130 

I F ( - R.-1A  X. . GT - 0 . 1 * Rt  1 1 '1 ) GO  TO  110 
R-'.AX  = 0. 

PUI  X = -SC,ALL  (J)*i3.**IhXP 

IF  Tiib  SHIFT  UP  CAUSLS  FOIX  TO  LIr,  A30VL  TIL  ACTUAL  .-iIX, 

I OC  Rt  ASL  TSL  JCALL  RAO GL  TO  T:ib  .XL XT  LARGLST 

If  ( R.iIX.GT.  A.ilU)  R. iT  1 = -3C  ALL ( 3 + 1 ) * 1 0 **ILXP 
PLTUiJN 

C CI.GTr  i<  Tib  GO  ALL  A GOUT  THL  ACTUAL  RAG  Or,  OF  P0IX7S 

110  I TOP=  ( f.:AX-.A.<AX)/(  . 05*SCAL.b(  J ) * 1 0.  * * I LXP) 

I GO?*(  A.il  x-.l  il  J)/(  . 06*SCALl(  J)*10.**IbXP) 

I 0Ir  = ( I TOP- 1 .2  01’ ) /?. 

I'M  IOIF.l'-.O)  Lt.rjRT 

R.irj  = R.,T G-IOIF*  .06*3GALL(  J ) * 1 0 . * * I LX P 
R ■.<AX  = i«;  il  •.'+  1C  ALl  ( 1)  *10.**ILX’3 
RITURS 
L GO 
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8 . 0 UTILITY  SUBROUTINES 


The  utility  subroutines  have  been  added  to  avoid  some  of  the  annoying 
problems  encountered  when  a program  is  transferred  to  another  system  which 
may  have  similar  but  incompatible  library  routines. 

INTER?  and  DISER1  both  of  which  started  as  library  routines,  have  been 
modified  to  cut  running  '’osts  wherever  possible. 

A skilled  user  can  probably  replace  INTERP,  DISER1,  SIMULT,  XLIMIT,  and 
TGAUSS  with  local  library  routines  and  operate  efficiently. 

LAGRAN,  UTW  and  FRIC  are  specialized  subprograms  developed  for  use  in 
HYTTHA.  The  LAGRAN  subroutine  not  only  interpolates  data  points  but 
compu  es  viscosity  and  a viscosity  pressure  correction  factor.  Function 
UFW  provides  a heat  transfer  coefficient,  and  FRIC  give  laminar  and  turbulent 
flow  coefficients. 
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8 . 1 INTERP  SUBROUTINE 


The  INTERP  subroutine  provides  interpolation  for  continuous  or  discon- 
tinuous functions  of  the  form  Y ■ f(X).  INTERP  is  a shortened  version  of  a 
MCAUTO  library  functional  subroutine  named  DISCOT. 

INTERP  uses  two  other  subroutines,  DISER1  and  LAGRAN,  to  derive  the  depen- 
dent variable  from  tabulated  data  input  by  the  programmer  or  already  existing  in 
the  program  subroutine.  Subroutine  DISER1  gives  the  data  points  around  the  X vari- 
able. Lagrange's  interpolation  formula  is  used  in  the  subroutine  LAGRAN  to 

obtain  a Y value.  For  an  X value  lying  outside  the  range  of  the  tabulated 
data,  the  Y value  will  be  extrapolated.  Fluid  viscosities  are  calculated 
using  a modified  Walther  equation  (Reference  9.5). 

8.1.1  Solution  Method.  The  INTERP  subroutine  provides  the  necessary  control 
parameters  to  DISER1  and  LAGRAN  to  yield  a dependent  variable.  The  sub- 
routine arguments  are: 

Subroutine  INTERP  (X,  TABX,  TABY,  NC,  NY,  Y,  IND) 
where: 

X - Argument  of  function  Y = f(X) 

TABX  - X array  of  independent  variables  in  ascending  order 
TABY  - Y array  of  dependent  variables  in  ascending  order 
' NC  - Control  word 

Tens  Digit  - Degree  of  interpolation 

Units  Digit  - =1  Walther  equation 

“ 0 LAGRAN  interpolation 
NY  - Number  of  data  points  in  the  Y array 
Y - Dependent  variable 
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IND 


Error  indicator 


0 = Normal  interpolation 

1 = Extrapolation  outside  range  of  data  points. 

8.1.2  Assumptions.  Not  applicable 

8.1.3  Computations . The  degree  of  interpolation  will  be  decoded  from  the 
control  word  NC  in  the  INTERP  subroutine  argument  and  passed  to  DISER1.  The 
error  indicator  IND  is  set  to  zero.  On  finding  the  data  point  closest  to  the  X 
value  from  DISER1,  it  is  entered  into  the  LAGRAN  subroutine  argument.  If  the 
modified  Neither  equation  is  to  be  used  for  a viscosity  calculation,  IDX  will 

be  set  equal  to  -1. 

8.1.4  Approximations . Not  applicable 

8.1.5  Limitations.  The  X and  Y data  points  must  be  entered  in  an  ascending 
order.  When  tabulating  a discontinuous  function  the  independent  variable  (X) 
at  the  point  of  discontinuity  is  repeated,  i.e., 


Thus  for  discontinuous  functions  there  must  be  K + 1 points  above  and  below 
the  discontinuity,  where  K is  the  degree  of  interpolation. 


8.1-2 


8.1.6  INTERP  Variable  Names. 


Variables 

IDX 

IND 


NC 

NPX 

NPX1 

NY 

TABX 
TABY 
X,  XA 
Y 


Description 

Degree  of  interpolation 
Solution  indicator 

* 0 Normal  interpolation 
= 1 Extrapolation  outside  of  data  range 
Control  word 
Dummy  array 

Location  of  data  point  X,  Y for  interpolation 

Number  of  Y data  points 
X array  of  data  points 
Y array  of  data  points 
Independent  variable 
Dependent  variable 


Dimensions 
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8.1.7  Subroutine  Listing 


51)3 ROUT I ML  I ITER P ( X , TABX , TAB Y , MC , M Y , Y , I ND ) 
DIMENSION  TA 3 X ( 1)  , TABY ( 1)  ,NPX(8) 

I DX= ( NC- ( NC/ 1 0 0 ) * 1 00 ) /1 0 

I N D=  0 

XA=X 

CALL  DIS  tftl ( XA , TA3X , 1 ,NY,IDX,NPX, IMD) 
NPXl=NPX(  1) 

Ip( ( NC-I OX* 1 0 ) . EG. 1) IDX=-1 
I F ( ( NC-I DX* 1 0 ) . EQ. 2) IDX=-2 

CALL  LAGRAM ( XA , TABX{ X PXl ) ,TABY(NPXl) ,IDX+1,Y) 

f t <"pr  iom 

END 
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8.2  DISER1  SUBROUTINE 


The  subroutine  DISER1  will  return  the  array  location  of  the  lower  bound 
value  of  the  interval  in  which  the  independent  variable  lies.  DISER1  is  a 
modification  of  a MCAUTO  library  subroutine  named  DISSER, 

The  arguments  for  the  DISERl  subroutine  are  is  follows: 

Subroutine  DISERl  (XA,  TAB,  I,  NX,  10,  NPX,  TND'l 
XA  - Independent  variable 
TAB  - X array 

I - Tabulated  data  location 

NX  - Number  of  points  in  the  independent  array 
ID  - Degree  of  interpolation 

NPX  - Location  of  lower  bound  for  data  point  XA,  in  the  TAB  array 
IND  - Indicator 

8.2.1  Solution  Method.  Not  applicable 

8.2.2  Assumptions.  Not  applicable 

8.2.3  Computations.  On  entry  of  the  independent  variable,  XA,  and  the  tabu- 
lated data  form  the  TABX  array,  DISERl  will  find  the  tabulated  data  values 
that  bound  XA,  and  return  the  smaller  one  to  the  calling  program.  If  XA  were 
to  lie  outside  the  lower  end  of  the  data,  DISERl  would  return  the  first  data 
point  as  the  lower  bound.  Should  XA  lie  outside  the  upper  tabulated  value, 
the  second  from  the  last  data  point  location  will  be  returned  by  DISERl. 

8.2.4  Approximations . Not  applicable 

8.2.5  Limitations ■ Not  applicable 
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8.2.6  D I SERI  Variable  Names 


Variable 


Description 


Dimensions 


IND  Solution  indicator 

I,  ID,  IT,  J,  NLOC, 

NLOW,  NPB,  NPT,  NPU,  Integer  counters 
NPX,  NUPP,  NX,  NXX 

TAB 

XA 


Array  of  independent  variables 
Independent  variable 
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8*2*7  Subroutine  Listlnr 
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8.3  LAGRAN  SUBROUTINE 


The  LAGRAN  subroutine  will  interpolate  or  extrapolate  a data  point  from 
two  known  tabulated  values.  In  addition,  LAGRAN  will  calculate  viscosity  using 
a modified  Walther  equation.  The  LAGRAN  subroutine  arguments  are: 

Subroutine  LAGRAN  (XA,  X,  Y,  N,  ANS) 

XA  - Independent  variable 
X - X array 

Y - Y array 

N - Degree  of  interpolation 

ANS  - Dependent  varaible 

8.3.1  Math  Model.  LAGRANGES  interpolation  equation  is  used  in  this  subroutine 

to  calculate  the  dependent  variable.  The  LAGRANGE  formula  is: 

m 

P (x)  »■  I L,  (x)  y ^ 

i=0 


Where: 

L^  (x)  is  the  Lagrange  multiplier  function. 


(x-x„)  (x-x  ) ' ’ ' (x-x  , ) (x-x  . ) “ * (x-x  ) 
l u ± iZi ±3I± D (2) 

i (Vltl)'"(xi'Xi-l)  (xi"Jti+l)  ‘ * * (jli“3ln) 

The  LAGRANGE  equation  will  generate  a polynomial  between  two  data  points. 
The  degree  of  the  polynominal  will  be  that  specified  by  the  index  value  N. 

The  dependent  variable  will  be  returned  as  ANS  in  the  subroutine  argument. 

A modified  version  of  the  Walther  equation  taken  from  Reference  9.6  is  used 
in  the  calculation  of  viscosity.  The  ASTM  charts  are  based  on  this  equation. 

LOG  [LOG  (v+c)  ] = A LOG  °R  + B (3) 

Where: 

c ■ a constant 


8.3-3 


°R  = Temperature,  “RANKINE 
v = Viscosity,  cSt 
A,B  ■»  Constants  for  each  fluid 
LOG  = Log  to  the  base  10 

The  ASTM  chart  expresses  c as  a constant  varying  from  0.75  at  0.4  cSt  to  0.6 
at  1.5  cSt  and  above. 

8.3.2  Assumptions . The  Lagrangian  equation  generated  by  the  subroutine  will 
only  use  the  data  points  around  the  dependent  variable  to  generate  a polynomial 
for  interpolation.  The  last  or  first  set  of  two  data  points  will  be  used 

for  extrapolation.  The  equation  used  to  determine  the  viscosity  uses  a 
constant  factor  that  is  applicable  to  viscosity  values  of  2 centistokes  or  more 

8.3.3  Computation.  The  procedure  LAGRAN  will  perform  whether  it  be  inter- 
polation or  the  viscosity  calculation,  will  always  be  recognized  by  testing 
the  N argument  in  the  subroutine  statement.  If  N is  equal  to  zero,  then  the 
viscosity  will  be  calculated  using  the  modified  Walther  equation.  Otherwise 

N will  specify  the  degree  of  interpolation  to  be  used  by  the  Lagrange  formula  . 
Both  results  wilL  be  returned  to  the  calling  program  through  the  variable 
named  ANS.  The  LAGRAN  interpolation  is  a direct  application  of  equation  (1) 
to  the  given  data. 

Before  evaluating  the  viscosity  equation  (3)  for  the  viscosity  value  at 
XA  temperature,  the  constants  A and  B must  be  calculated.  They  a re  solved 
using  the  data  points  that  surround  the  dependent  variable,  or  the  first  or 
last  set  of  two  data  points  if  the  dependent  variable  lies  outside  the  range 
of  the  tabulated  data.  With  the  constants  calculated  for  this  fluid  the 
viscosity  can  be  computed  from  Equation  (3). 

8.3.4  Approximations.  In  the  viscosity  calculation,  0.6  was  used  as  a 
constant  factor  for  all  ranges  of  viscosity.  See  reference  9.6  for  a more 
thorough  discussion. 
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8.3.5  Limitations.  Since  the  LAGRANGE  method  only  uses  two  data  points  to 


interpolate  it  can  become  inaccurate  for  remotely  spaced  tabulated  data 
points.  Any  degree  of  interpolation  greater  than  two  can  lead  to  erroneous 
results. 

For  the  viscosity  equation,  any  computed  value  of  viscosity  less  than 
2 centistokes  cannot  be  considered  accurate,  and  should  be  weighed 
in  the  finaJ  results. 

8.3.6  LAGRAN  Subroutine  Variable  Names 


Variable  Description 

A Constant  for  viscosity 

ANS  Dependent  variable 

B Constant  for  viscosity 

I,J  Integer  counters 

N Method  of  solution 

N * 0 Viscosity  calculation 

N > 0 Degree  of  interpolation 

PROD  Lagrange  partial  product 

PI  LOG  LOG  of  (Y  (1)  + C) 

P2  LOG  LOG  of  (Y  (2)  + C) 

T1  LOG  of  T (1) 

T2  LOG  of  T (2) 


Dimensions 


cSt 

cSt 

°R 

°R 


X X-array 

XA  Independent  variable 

Y Y-array 
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8,3.7  Subroutine  Listing 


subroutine;  lagran{xa,x, y,n,ans) 

DIMLNSION  X( 1) , Y{ 1) 

IF(N.EQ.-l)  GO  TO  20 
IF{ N . EQ. 0 ) GO  TO  10 
SUrl  = 0.0 
DO  3 1=1, N 
PROD=Y( I) 

DO  2 J=1 , N 
A»X(I)-X(J) 

IF ( A ) 1,2,1 

1 B= ( XA-X ( J ) ) /A 
PROD=PROD*B 

2 CONTINUE 

3 SUN=SUi-l  + PROD 
AN! =SU.  1 
RLTURN 

C VISCOSITY  CALCULATION 

10  CONTINUE 
A 1 = 0 . 

IF( Y( 1) .LL.2.)Al=EXP(-i.47-1.84*Y(l)-.51*Y(l)**2) 
A2=0 , 

IF( Y( 2) . LE.2.)A2=LXP(-].47-l,84*Y(2)-.51*Y(2)**2) 

P 1 = A LOG  1 0 ( A LOC 1 0 ( Y ( 1 ) + . 7 +A 1 ) ) 

P2=ALOG10( AL^G10( Y( 2J+.7+A2) ) 

T 1 = A LOO 1 0 ( X ( i ) + 4 6 0 . ) 

T2=ALOGl 0 ( X( 2)+460. ) 

I3=(  P1-P2)/ (T2-T1) 

A=P1+3*T1 

Z=10**( I 0** ( A-B*ALOGiO( XA+480. ) ) ) 

I F ( Z . I F. . 2 . 7 ) GO  TO  11 
AN3  = Z- . / 

RETURN 

11  ANS  = ( Z-.7)-LXP(-. 7437-3.  2 9 5 * ( Z-.7)+.6119*( Z-.7) * * 2 
+-.3103*(Z-.7)**3) 

RLTUR  i 

C FUJI DL  CALCULATION 

20  CONTINUL 

P1=ALGG10( ALJG10( Y ( l)+.6) ) 

P 2= A LOG  1 0 ( \ LOG  1 0 ( Y { 2 ) + . 6 ) ) 

T1=ALOG10(  X(  D + 460.  ) 

T2=ALOG10( X ( 2 ) + 4 60 , ) 

B=( P1-P2)/ (T2-T1) 

A=P1+B*T1 

V0=10**{  10**(  A-I3*ALOG10(  XA  + 4 60.  ) ) )-,6 
T5= 1 O*  * ( ( . 125939+A)/B) 

T 1 000=1 0** ( (-. 4771 59+A)/3) 

S=ALOG10( (T5)/100,+l.) -ALOGIO ( (T1000)/100.+l) 
DtLX=65. 10979*3 
S=6. 65/DELX 

ALPI1A=3 .2352  3- 11. 3886*3  + 13. 1735*3*3-4. 8831*S*S*S 
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8.3.7  (Continued) 


' i r.-=-">.  iU!r,+l  ’ll 
= 3.  351f  2-1  3.  137  3*. 

\ =■ ' C >.i  \+  ' i . 3 * M,: ' ' 1' 

T1-(  \ ) \ ' -f' 


+ i 7.  i7n*o*.>-7. r.s:i*v*.>* 

: , ) +C::I  * ( AL  ' 1 1 7 ( V 0 ) )**2 
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8.4  SIMULT  SUBROUTINE 


SIMULT  is  a Fortran  library  subroutine  (Reference.  9.7}  that  solves 
systems  of  N linear  algebraic  equations  with  N unknowns.  SIMULT  employs 
Gaussian  elimination  and  positioning  for  size  using  the  largest  pivotal 
divisor  as  the  solution  process. 

8.4.1  Solution  Method  - A system  of  linear  equations  may  be  written: 
allxl  + a12x2  + • • + aln  m bl 

a21xl  + a22x2  + • • + a2n  xm  " b2 

...  . (1) 


amlxl  + am2x2  + • • + 
Rewriting  in  matrix  form: 


all 

a12 

a^m 

X1 

bl 

a21 

n22 

x2 

•= 

b2 

am2 

amm 

’Su 

d *• 

_ bm_ 

Equation  (2)  may  be  further  simplified  by  writing: 

AX  - B (3) 


where 


(2) 


A =>  M * M Matrix  of  coefficients 

B = M Matrix  of  Constants 

X = M Matrix  of  M unknowns  in  the  system. 


The  solution  of  a set  of  simultaneous  linear  equations  as  in  (1)  is 
by  Gaussian  elimination  using  pivoting.  Each  stage  of  elimination  consists 
of  interchanging  rows  when  necessary  to  avoid  division  by  zero  or  small 
elements.  The  forward  solution  to  obtain  variable  M is  done  in  M stages. 

The  back  solution  for  the  other  variables  is  calculated  by  successive  substi- 
tutions. Final  solution  values  are  developed  in  matrix  B,  with  variable  1 
in  B(l) , variable  2 in  B(2),...,  variable  M in  B(M) . If  no  pivot  can  be 
found  exceeding  a tolerance  of  0.0,  the  matrix  is  considered  singular. 

The  arguments  for  SIMULT  are  as  follows: 

Subroutine  SIMULT  (CALC1,  CALC 2 , M,  J) 

where: 

CALC1  « A 
CALC 2 - B 

M = number  of  equations 
J = solution  indicator 

J = 1 when  no  solution  can  be  found  - equations  are 
singular 

.1  = 0 for  a normal  solution 

Both  the  original  CALC1  and  CALC2  Matrices  are  destroyed  in  the  computation. 
The  answers  are  returned  through  the  CALC2  Matrix. 

8.4.2  Assumptions  - The  basic  assumption  used  in  the  solution  of  simultaneous 
linear  equations  involves  the  ability  to  actually  linearize  the  complex 
mathematical  system  that  is  being  described.  If  this  can  reasonably  be 
done  then  a set  of  equations  as  in  (1)  may  be  written  and  solved. 
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8.4.3  Computation  - Gaussian  elimination  and  positioning  for  size  using  the 
largest  pivotal  divisor  is  used.  Positioning  for  size  or  pivoting  will 
ordinarily  reduce  some  of  the  roundoff  errors  in  the  solution  and  may 
actually  allow  some  ill-conditioned  systems  to  be  solved.  See  Appendix 

D SSFAN  Technical  Manual  (MDC  A3059  Vol  II)  for  a more  thorough  discussion 
of  this  method. 

8.4.4  Approximations  - The  approximations  are  inherent  in  the  use  of  the 
Gaussian  elimination  procedure  as  described  in  Appendix  D of  the  SSFAN  Tech- 
nical Manual. 

8.4.5  Limitations  - If  no  equation  in  the  set  (1)  is  a linear  combination 
of  the  others,  the  system  of  equations  is  said  to  be  linearly  independent 
and  a unique  solution  exists  for  the  unknowns,.  A system  of  equations  are 
homogeneous  if  each  bi  in  B (EQN  2)  is  equal  to  zero.  The  Gaussian 
elimination  method  will  provide  a unique  solution  to  equation  (3)  when 

the  corresponding  homogenous  system  has  only  the  solution  X = 0.  Both 
systems  AX  = B and  AX  = 0 as  well  as  the  coefficient  matrix  A are  then 
termed  non-singular.  When  AX  = 0 has  solutions  other  than  zero,  the  two 
systems  and  matrix  A are  termed  singular.  This  results  in  AX  " B either 
having  no  solution  or  an  infinite  numbpr  of  solutions. 
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8.4.6  SIMULT  Sub r outine  Variable  Names 


Variables 

A 

B 

BIGA 

IA,IB,IC,IJ 
IMAX, IQS , IT 
IX,IXJ,IXJX, 

II, 12, J , JJ , JJX, 
JX,JY,K,NY 

N 

SAVE 

TOL 


Description  Dimensions 

N*N  Matrix  of  Coefficients 
N matrix  of  constants 
Largest  element 

Integer  counters 

Number  of  unknowns 
Temporary  storage  location 
Tolerance 
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8.4.7  Subroutine  Listing 


.l  'I  .11,;  ( w i,  ■<. 

■T****  . i.  \7 1 ,i  : j \ < 1,  \ll  \ ■ 

"I  -i  ...  1 \(  1)  ,'(  1) 

? l=  ).  n 

■ = i > 

i j = - j 

L ' >5  .1=1,  I 
7 7=7+ l 
J I=.7  II  <+1 
' I \ = A 
T :=  1 7-7 
) V)  T = J , 
t 7=r  +i 

I '(  ' ' »(  I *\)-\  J.'(A(  ID  ))•'• 
? I 'I  *'  = \(  I. T) 

T '.V  = I 
i ,•  . :i  .‘i, 

I.'(  '•>''(  I >w)3e,  3 >,<lrt 

/ » - i 

“Li  I'  . 

I1=U  .*{  1-3) 

1 . = 1 . w-  T 

1 J , •-  ‘ , 

I 1 = 11  f 
T'>=T1  + I7 
.-V\  =3(11) 

\(  J1  ) = \(  I?) 

•v(  1 2) 

*•( ri)  = \(7  L)/'i  ,\ 

>\v’L  = '(  I . V<) 

3(1. -V)=  (-7) 

i(  7)=JV/l/?I-~.\ 

I‘-(  7-  " ) ” 3' , 7 1 , 5 1 

r1  T-s=  . ( 7-1  ) 

" i r;=7  7,  1 
T 7 = I v,  + l,f 
: r=i-i  < 

V.-  1 ' 7 '=  77, 

I 7‘<=  * ( 7 '-1  ) + Iv 
7 iy= i ^ 7 c+r: 

r 7 *(  I :•■;/<)  = %.(  i v.7  o-(  \{  i • 7)  *.\( 

'r  ’(i  ’)-  x(i  ')-(;( 7 )*••»(  I 7 ) ) 

7 “ ■ Y=  :-l 
I':’=  •’*  ’ 

■'/  17  7 = 1,  ! V 
I WV-7 
I ’.=  i-7 

ic=  ; 

•X  ° 7 '7=1,7 

7(1 1)  = 1(  I ’)-i(  T\)  * :( IC) 

I \=n-  I 

''7  T.>y/;_j 
'>  ; 7M(  : 
i . 7 


* * * 


1,  7 7,  7:7 


.110) 
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8.5  TGAUSS  SUBROUTINE 


TGAUSS  is  a subroutine  for  in-core  solution  of  large,  sparse  systems 
of  linear  equations  (Reference  9.8).  The  subprogram  employs  minimum  row 
minimum  column  elimination.  A limited  number  of  zeros  is  stored  and  trivial 
arithmetic  is  used  to  preserve  computer  storage  and  to  reduce  the  time  required 
for  solution.  TGAUSS  is  used  in  conjunction  with  TCALC  to  obtain  the  system 
flows  and  pressures. 

8.5.1  Solution  Method 

Excellent  discussions  on  the  Gauss-Jordan  elimination  technique  can  be  found 
in  many  numerical  analysis  textbooks.  Briefly  the  method  is  based  on  the  three 
elementary  row  operations: 

1.  Interchange  of  any  two  rows. 

2.  Multiplication  of  a row  by  a scalar. 

3.  Addition  of  a multiple  of  one  row  to  another  row. 

For  example  by  applying  a sequence  of  row  transformations  to  a system  of 
simultaneous  equations 

aU  xl+  a12x2  + ’••+  almxm  = bl 
a21xl  + a?2x2  +•••  + a2mxm  = b2 


a .x.  + a 0x„+. . .+  a x 
mi  L m2  2 mm  m 


Expressed  in  augmented  form 
a, 
a 
a 

Yields 


= b 


m 


11 

al2  ' 

3lm 

bi 

j. 

21 

a22  * 

a2m 

b2 

ml 

am2  ’ 

a 

mm 

bm 

I : X 

. _ 
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The  Gauss 


where  I is  the  identity  matrix  and  X is  the  solution, 
elimination  technique  used  in  TGAUSS  requires  elimination  of  only  the  elements 
in  the  upper  or  lower  triangular  partition  of  the  array  which  is  followed  bv 
a buck  substitution  to  obtain  the  solution. 

Two  arrays  are  generated  that  contain  the  number  of  non-zero  elements 
in  each  row  (IREN'l’O)  and  the  number  of  non-zero  elements  in  each  column 
(ICENTO)  of  an  N x N array.  These  arrays  are  updated  each  time  an  element 
is  eliminated  or  generated,  so  thaL  the  current  row  and  column  count  are 
available  for  pivot  selection. 

In  TGAUSS  the  TRENT  array  is  searched  to  find  the  row  with,  the  least 
number  oi  non-zero  coefficients  that  has  not  been  previously  selected  as 
the  pivotal  row.  Should  two  or  more  rows  satisfy  this  criteria,  the  row 
with  the  smallest  row  index  is  selected.  Next  the  ICENT  array  is  searched 
to  select  the  column  with  least  number  of  entries.  Ir.  the  event  that  two 
or  more  columns  contain  the  same  oumbe'  of  elements,  the  column  with  the 
smallest  index  is  selected  as  the  p’votal  column. 

Each  row-column  selection  is  thus  used  in  the  lack  substitution  to  obtain 
the  solution. 

8.5.2  Assumptions  - Not  applicable. 

8.5.3  Computation  — Von  entry  inf''*  TGAUSS  the  number  of  non— zero  elements  in 

each  column  and  row  of  the  M x M solution  matrix  is  stored  in  ICENT(  ) and  IRENT(  ) 
At  this  ooint  the  remainder  of  the  program  is  contained  within  thru.,  nested 
loops.  The  outer  loop  selects  a new  pivotal  element  on  each  pass.  The  pivot 
element  is  stored  in  the  order  array  for  future  use  during  subsequent  iterations 
in  the  TCALE  program.  This  is  a . im ? saving  device  to  eliminate  the  necessity 
of  selecting  the  same  sequence  of  pivot  elements  on  each  iteration.  Once  the 
pivotal  element  has  been  selected,  the  pivotal  row  is  normalized  by  dividing 
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the  row  by  the  pivotal  element.  Since  the  pivotal  element  is  normalized, 
it  is  set  to  one  as  a precaution  against  round-off  errors. 

The  second  loop  is  entered,  which  involves  a row-by-row  search  for  rows 
containing  elements  in  the  pivotal  column.  If  the  number  of  ent( ies  in 
t he  pivotal  column  has  been  reduced  to  one  entry,  there  is  no  need  to 
continue  and  the  program  selects  a new  pivotal  element.  Also  if  the  pivotal 
row  is  selected  all  further  tests  are  bypassed  and  the  next  row  is 
selected  since  operations  on  the  pivotal  row  are  not  permitted. 

Finally,  the  inner  loop  is  a column-by-column  search  of  each  row  to 
determine  if  the  row  contains  the  pivotal  element.  At  this  point,  there 
are  three  alternatives  available: 

1.  If  the  column  index  in  the  row  being  searched  is  less  than  the 
pivotal  column,  it  is  necessary  to  continue  searching  the  row. 

2.  If  the  column  index  is  greater  than  t he  pivotal  column,  the  row 
does  not  contain  the  pivotal  column,  and  a new  row  must  be  selected. 

3.  If  the  column  index  is  equal  to  the  pivotal  column,  the  row 
contains  the  pivotal  element  and  the  row  can  be  operated  on  by  the 
pivotal,  row. 


If  the  conditions  in  3 are  met,  the  pivotal  row  is  multiplied  by  the 
negative  of  the  element  in  the  pivotal  column  of  the  row  being  operated  on. 
Then  the  two  rows  are  added.  The  element  being  eliminated  is  simply  dropped 
from  cons j deration  by  moving  all  entries  uo  ics  > xgt  1 1.  one  s e m l lit*  io  t . 
All  elements  remaining  in  the  row  are  compared  to  ZTEST  to  see  if  any  elements 
other  han  the  element  in  the  pivotal  column  were  eliminated.  If  so,  the  row 
was  further  compressed  to  eliminate  the  zero  entry  from  the  row.  Finally,  the 
row  is  test  J to  see  if  tie  row  count  is  zero  which  indicates  a singularity. 

If  a singul  *‘itv  is  encountered  an  error  message  is  printed: 

* SINGULAR  MATRIX-NO  SOLUTION* 
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If  a singularity  is  not  encountered,  the  program  continues  looping  until 
a pivotal  element  has  been  selected  from  each  row  and  column,  at  this  point, 
the  solution  vector  is  stored  in  the  CALC2  array  in  a scrambled  order.  The 
solution  is  then  unscrambled  and  stored  in  numerical  order  in  the  first 
column  of  the  A(  ) array. 

8.5.4  Approximations  - In  situations  where  it  is  known  that  an  operation 
will  result  in  a zero  or  a one,  t lie  arithmetic  operation  is  bypassed  and 
the  element  simplv  set  to  zero  or  one. 

8.5.5  I. imitations  - TCAUSS  is  set  up  to  solve  only  sparse  symmetric  systems 
of  linear  equations. 

8.5.6  TCAllSS  Variable  Listing 


Variable 

Description 

Dimens  ion 

A ( ) 

Matrix  of  coefficients 

— 

ATEST 

Dummy  variable 

— 

CALC2 ( ) 

NU  matrix  of  constants 

— 

IC, I I , IK 

Dummy  variables 

— 

ICENT ( ) 

Array  containing  number  of  non-zero 
in  each  column  of  A(  ) 

elements 

— 

IORDER(  ) 

Array  giving  pivot  selection  based  i 
min  column  criteria 

on  min-row 

— 

1RENT ( ) 

Array  containing  number  of  non-zero 
in  each  row  of  A(  ) 

elements 

— 

ITER 

Iteration  count 

— 

IX , T Y , J , JKL , 
JKOP , JKPI ,LKJ , 
NAA.NK 

Dummy  variables 

— 

NU 

Number  of  equations 

— 

OPROW 

Dummy  variable 

— 
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Dimension 


Vnr  iable 
P1VC0L 
PTVROW 
X.ZTEST 


Description 


Pivot  column 
Pivot  row 
Dummy  variables 
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8.5.7  Subroutine  Listing 


SUBROUTINE  TGAUSS(NU, ITER) 

DOUBLE  PRECISION  C,X,A,CALC2 

INTEGER  PIVROW, PIVCOL, OPROW 

COMMON  G{ 90) ,CALC2( 55) , JPCOL( 55,20), A( 55, 20) 

COMMON/ICC/lCOL( 55, 20) ,JRENT(55) ,JCENT(55)' 

DIMENSION  ICENT' 100) , IRENT(IOO) , IORDER( 100,3) 

ZTBST=0 . 0 
NAA=2  0 

C BUILD  I RENT  AND  ICENT 

DO  99  1=1, NU 
IRLNT(  I)=JRLNT(I> 

ICbNT{ I ) =JCENT( I ) 

99  CONTINUE 

C WRITE ( 6, 9 010) ( I RENT ( I) ,1  = 1,100) 

C WRITE { 6, 9010) (ICENT{ I) ,1=1,100) 

9010  FORMAT(lX, 2016) 

C IF ( ITER. CT. 1) WRITE (6, 9020) ( (IORDER(I, J) , J=1 , 3 ) , 1=1 , NU) 

9020  FORilAT(  IX,  6110) 

DO  66  LK J=1 , NU 

IF ( ITER.NL. 1)  GO  TO  432 

I K=1 90000 

DO  103  7=1, NU 

IF  ( I RENTt  I ) . GE . I !< . OR . I RENT  ( I ) . LE.  0 ) GO  TO  103 

?IVPOW=I 

IK=IRENT( I) 

103  CONTINUE 

] ORDER( LKJ , 1 ) =PIVROW 
IK=1 00000 
IC=IRLNT( PIVROU) 

DO  104  1=1, IC 
I I=ICOL( PIVROW, I ) 

IF ( ICENT( II) .GE. IK. OR. ICENT( II) . LE. 0)GO  TO  104 
?I  VCOL=I  I 
IK=ICENT( II) 

I Y=  I 

194  CONTINUE 

IORDER ( LKJ , 2 ) = PI  VCOL 
IORDLR( LKJ, 3)  = IY 
GO  TO  450 

432  PI VROW=IORDCR( LKJ , 1 ) 

PlVCOL=IORDER( LKJ, 2) 

I Y= I OR  DE  P ( LKJ, 3) 

450  X=A( PIVROW, IY) 

IC=IRENT( PIVROW) 

DO  5 J=1,IC 

5 A(PIVROW, 7)=A{ PIVROW, J)/X 
A { PI VROm , I Y ) = 1 . 0 
CALC  2 ( PIVROW) =CALC 2 ( PIVROW )/X 
DO  106  1=1, NU 

I F ( ICEWT( PIVCOL) . EQ. 1 ) GO  TO  107 


8.5-6 


8.5.7  (Continued) 

IF{ I . EQ. PIVROW)  GO  TO  106 
IC=IA8S ( I RENT ( I ) ) 

DO  105  J=1,IC 

IF( ICOL( I , J ) -PI VCOL)  105,77,106 
77  OPROW=I 
JKOP=l 
JKPI=1 

C=-A( OPROW , J ) 

X=CALC  2 ( PIVROW) *C+CALC 2 ( OPROW ) 

CALC  2 ( OPROW ) = X 

79  CONTINUE 

IF ( ICOL( PIVROW , JKPI ) .EQ.O)  GO  TO  106 

IF ( ICOL( OPROW , JKOP) . EQ. 0 ) GO  TO  80 

IF ( ICOL( PIVROW, JKPI)- ICOL( OPROW, JKOP) ) 80,81,82 

80  I RENT ( I ) =1 RENT( I ) +1 

IF( I RENT ( I ) . LL . 0 ) I RENT ( I ) =IRENT( I ) -2 
1 1 = IAB3 ( 1 RENT ( I ) ) 

IF  ( 1 1 . GT.  NAA ) WRITE ( 6,9000)  11 
9000  FORMAT ( 10X,*EXCEEDED  MAX  COLUMN  NUMBER*, 110) 

IF( 1 1. GT. NAA) STOP 
JKLr-JKOP+l 
90  CONTINUE 
IX=II-1 

A ( OPROW , I I ) =A( OPROW , I X ) 

ICOL( OPROW, II ) =ICOL( OPROW , IX) 

II“IX 

IF( II.Gt. JKL)  GO  TO  90 
X=A(  PIVROW, JKPI) *C 
A( OPROW , JKOP) =X 

ICOL( OPROW, JKOP) =ICOL( PIVROW, JKPI ) 
IX=ICOL(OPROW, JKOP) 

ICENT( I X ) = I C ENT ( I X ) + 1 
GO  TO  83 

81  IX=ICOL(  OPROVi , JKOP) 

IF ( IX. EO. PI VCOL)  GO  TO  11 

X=A ( PIVROW, JKPI ) *C+A( OPROW, JKOP) 

A ( OPROW , JKOP ) -X 
ATL5T-DABS ( X) -ZTEST 
IF ( ATEST. GT .0.0) GO  TO  83 
11  ICENT( I X ) = ICENT( I X ) -1 

I RENT  ( OPROvj ) = I RENT  ( OPROW ) - 1 
IF ( IREN T( OPROW) ) 140, 141, 142 

141  CONTINUE 
WRITE( 6,9030) 

9020  FORMAT ( 1 OX , * SINGULAR  MATRIX-NO  SOLUTION*) 

STOP 

140  CONTINUE 

IP.ENT(  OPROv> ) = I RENT  ( OPROW ) + 2 

142  IX=IABS(  I RENT (OPROW) ) 

DO  191  NK=,"KOP,  I X 
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8.5.7  (Continued) 


A(I,NK)=A(I,NK+1) 

181  ICOL( I,NK)=ICOL(I/NK+l) 

IX=IX+1 
ICOL( I , IX)=0 
JKPI=JKPI+1 
GO  TO  79 
83  JKPI=JKPI+1 
R 2 JKOP=JKOP+l 
GO  TO  79 

105  CONTINUE 

106  CONTINUE 

107  CONTINUE 

IRCNT( PIVROW) =-IRENT( PIVROW) 
ICENT( PIVCOL)=-ICENT( PIVCOL) 

66  CONTINUE 

DO  350  1 = 1 , NU 
II=ICOL(I,l) 

350  A ( 1 1 , 1 ) =CALC 2(1) 

C WRITE ( 6,9040) (CALC2(I) , 1=1, NU) 
9040  FORi-IAT(  IX,  10E12.  5) 

RETURN 

END 
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8.6  FUNCTION  UFW 


Function  UFW  is  a heat  transfer  coefficient  calculation  subroutine. 

The  heat  transfer  coefficient  between  a waLl  and  a fluid  is  calculated 
based  on  the  volume  flow  rate,  pressure,  temperature,  cross  sectional  area 
of  the  fluid  and  the  distance  over  which  the  fluid  flows. 

8.6.1  Math  Model  - The  function  r< utine  UFW  is  called  by  several  of 

the  subroutines  listed  previously.  The  function  is  called  from  each  subroutine 

in  the  form 

UFWIL  = UFW(AAA,DDD,Q(LI) ,TF(LI) ,P(LI)) 

AAA  is  equal  to  the  cross  sectional  area  of  the  fluid  at  the  location  where 
the  heat  transfer  coefficient  is  of  interest.  DDD  Is  the  diameter  of  the 
orifice  at  the  previous  cross  section.  Q(LI)  is  the  volume  flow  rate  also 
at  that  section;  TF(LI)  is  the  temperature  of  the  fluid  and  P(LI)  is  the 
pressure  in  the  fluid  at  that  point. 

Once  UFW  is  called  from  a subroutine  the  function  UFW  is  executed 
and  calculates  the  heat  transfer  coefficient  as  follows: 

The  Reynolds  number  is  calculated 

REN  = DDD* ABS ( FLOW) / (VI  SOIL* AAA) 

where  flow  is  equal  tc  Qi'LI),  the  volume  flow  rate,  and  V1SCIL  is  the 
fluid  viscosity. 

The  Prandtt  number  is  calculated 

PRN  = V I SOIL* 38 6 . 4 *RHOIL (TEMP , PRESS )*CPFN/CF 

where  386.4  is  just  a conversion  factor  for  the  density  from  Hydraulic 

3 

units  to  thermal  units  of  lb. /in.  . 

A check  on  the  Reynolds  number  is  made  to  see  if  turbulent  or  laminar 
flow  exists. 

IF  (REN . I.T . 1200.)  go  to  1000 
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If  laminar  or  loss  than  1200  the  heat  transfer  ooefiieient  is 


colt  nl, i ted 


UFW  = A . 3f»A*CF/I)DD 


But 

if  turbulent  then  the  heat  transfer  coefficient  is  caleul 

a ted  as 

UFW-0. 01 1 8* (PRN** . 3)* (REN** . 9)*CF/DD0 

The 

heat  transfer  coefficient  is  then  returned  to  t he  subroutine 

which  made  the  call. 

8.6.2  Variable  Listing 

Variable 

Description 

Dimension 

AAA 

Fluid  cross  sectional  area 

IN.2 

ODD 

Diameter  of  the  cross  sectional  area 

IN. 

FLOW 

Volume  flew  rate  in  the  considered  section 

CIS 

PRESS 

Fluid  pressure 

PS  I 

PRN 

Prandtl  number 

__ 

REN 

Reynolds  number 

— 

UFW 

ileat  transfer  coefficient,  fluid  to  wall 

WATTS/ IN2 - 

VI  SC  II. 

Fluid  viscosity 

in2/?i-:c. 
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8.6.3  Subroutine  Lis  tin; 


FUNCTION  UFW ( AAA , ODD , FLOW , TE.l P PRESS  ) 

C **********  CACULATL  HEAT  TRANSFER  COEFFICIENT  ********* 

CO.LlOM  /TRANS/ P( 300) fO( 300) ,C( 300) ,TC( 300) ,TW( 300) ,TF( 300) , 

+ ACF  ( 300)  ,A CW(  3 00)  ,DXF(  300)  , TI.1L , DELT , PI , N LI NL  , NL  L 
COMOON/ LINE/ PA  R.  1 { 150,4) ,TLW(  2000)  , TLF ( 2000) , LSTART( 150) ,UL3EG( 150) 
COibiON/FLIII  0/  ATPRbS  , CF , CPFN , FTEi-iP,  PROP(  13,3) 

VISC I L=VI SC ( rL.'.P,  PRESS) 

RE\'=DDD*  AilS  ( FLOW)  / ( VISCI  L*AAA) 

PRN=VI  SC  I L*  386 . 4 * R!10(  TEN  P,  PRESS  ) *CPFN/CF 

IF( REN. LT. 1200. ) GO  TO  1000 

UF'w  = 0. 0113*  ( PRN*  * . 3)  * ( REN* * . O ) *CF/DDD 

RETURN 

1000  UFW= 1. 364*CF/DDO 
RETURN 
END 
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8.7  SUBROUTINE  XLIMIT 


XLIMIT  is  a utility  subroutine  which  provides  the  calling  program  with 
information  to  determine  if  a limit  has  been  reached.  The  subroutine  is 
typically  used  for  components  with  mechanical  movement  and  returns  position 
and  velocity  data. 

8.7.1  MATH  MODEL 
Not  applicable. 

8.7.2  ASSUMPTIONS 
Not  applicable. 

8.7.3  COMPUTATION  METHOD 

Minimum  (POSMIN)  and  maximum  (POSMAX)  limits  are  input  along  with  the 
current  values  of  position  (POS)  and  velocity  (VEL)  from  the  calling 
program.  Initially  the  sign  is  set  to  zero  and  the  position  is  compared 
against  POSMAX. 

If  POS  is  greater  than  or  equal  to  POSMAX,  the  position  is  set  to 
POSMAX  and  ASIGN  is  set  to  1.  Should  VEL  be  greater  than  zero  it  is  zeroed 
and  a return  is  made  co  the  calling  program. 

If  POS  is  less  than  POSMAX  it  is  checked  against  POSMIN.  When  POS  is 
less  than  or  equal  to  POSMIN,  POS  is  set  to  POSMIN,  ASIGN  equals  -1  and  the 
velocity  is  zeroed  if  it  is  less  than  zero. 

Should  POS  be  greater  than  POSMIN  a return  is  made  to  rhe  calling 
program  without  any  position  or  velocity  changes. 

8.7.4  APPROXIMATIONS 
Not  applicable. 

8.7.5  LIMITATIONS 
Not  applicable. 
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8.7.6  VARIABLE  NAMES 


Variable 

ASIGN 

POS 

POSMIN 

POSMAX 

VEL 


Description 

Sign  (-1,  0,  1) 

Position 

Minimum  Position 
Maximum  Position 
Velocity 
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8.7,7  Subroutine  Listing 


SU3R0UTINE  XLI.‘iIT(  POS , VE  L,  A.3IGN , POSlIlN  , POS.-1AX ) 
A3IGN=0 . 0 

I F ( POS-POSflAX  ) 20,10,10 
10  P03  = POSNAX 
ASIGN=1 . 0 

IF( VbL.GT.0.0)  GO  TO  40 
CO  TO  50 

20  IF(  POS-POS/iIN)  30,  30,50 
3 0 PCS  = POS. 11,4 
ASIGM  = -1 . 0 

IF( VEL.GE.0.0)  GO  TO  50 
40  VLL=Q. 0 
50  RETURN 
END 
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8.8  FUNCTION  FR7C 


FRIC  is  a function  subroutine  that  is  used  to  calculate  steady 
state  flow-pressure  drop  coefficients  for  laminar  and  turbulent  flows. 

8.8.1  Math  Model  - Steady  state  pressure  drops  are  computed  using  the 
Darcy-Weisbach  equation.  For  laminar  flow 

FRIC  = 128 . /P1*VISC(  )*RHO(  ) / (PARM(KNEL, 2)**4) 

* n,ARM(KNKL, 1)  + PARM (KNEL , 3) ) 

For  turbulent  flow 

FRIC  = . 213*RHO(  )*(V1SC(  )**. 25)/(PARM(KNEL,2)**4.75) 

* (PARM  (KNEL , 1 )+PARM  (KNEL , 3)  ) 

where 

FARM (KNEL, 1)  = Line  length  (IN) 

PARM (KNEL, 2)  = inside  line  diameter  (IN) 

PARM (KNEL, 3)  " equivalent  line  length  (IN) 

8.8.2  Assumptions  - 

1.  Transition  from  laminar  to  turbulent  flow  is  assumed  to  occur 
at  a Reynolds  number  of  1200.  Flows  having  a Reynolds  number  greater 
than  1200  are  considered  turbulent  while  flows  having  a Reynolds  of  1200 
ot  less  are  assumed  ianiLnai  . 

2.  The  friction  factors  used  are  based  on  circular  cross-section, 
smooth  I.D.,  drawn  tubing. 

8.8.3  Computation  Methods  - Function  FRIC  arguments  are 

KNEL  - Line  number 

TEMP  - Line  temperature  (°F) 

PRESS  - Line  pressure  (PSI) 
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The  function  returns  either  a laminar  or  turbulent  coefficient  for 


use  in  a flow-pressure  drop  equation. 

8.8.6  Approx Imations  - Pressure  drops  calculated  for  flows  in  the  Reynolds 
number  range  of  1200  to  3000  are  approximate  since  a transition  flow  equation 
was  not  developed.  The  turbulent  equation  is  used  in  this  range. 

8.8.5  L imltat Ions  - FR1C  should  not  be  used  to  calculate  pressure  drops 
across  non-circular  cross  section  passages  or  across  rough  1. 1),  tubing. 
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8.8.6  Subroutine  Listing 


q * * * 


FUNCTION  FRIC(  KNLL,TL.!P,  PRLSS) 

RLVISLD  AUGUST  18,  1976  *** 

CO. I. -ION  /TRANS/P ( 3 00 ) , 0(  3 00 ) , C ( 3 00 ) ,TC(  3 00 ) , TU ( 3 00 ) , TF  ( 3 00 ) , 

ACF ( 300) , ACW( 300) ,DXF( 300) , Tlrtb , DLL? , PI , N LI MK , NLL 
COibiON  /LINL/PAR.i  ( 180,4)  ,TLrt(  2000)  ,TLF(  2000)  ,LSTART(150)  , 

NLSLC>(  180) 

LNTRY  R I C L 

FRIC  = 1 28  ./PI*  VISC(  TL.iP,  PRFSS ) * RIiO(  TEMP,  PRLSS  ) / ( PAR.'K  KNLL,  2 ) * * 4 . ) 
■ * ( PAR.-! ( KNLL,  1 ) +PAK.. ( KNLL,  3)  ) 

RLTURN 
LNTRY  FRICT 

FRIC  = . 21  3* P HO (Tii  -IP,  PRLSS)  *(VISC(TLnP,  PRLSS)  **  . 25)/(  PARw(  KMfcL,  2) 

• **4 . 75)  * ( PAR. i ( KNLL,  1 )+P\R.S{  KNLL,  3)  ) 

RLTURN 

LND 
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